[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マイナスだけの件数』(モリタ)
田中、木村、鈴木のB列が−0.1以上の件数をD列に抽出したいです。 ご指導お願いします。
A B C D 1 田中 -0.1 田中 2 2 田中 -1.5 木村 1 3 木村 3.6 鈴木 1 4 田中 1.2 5 木村 -0.4 6 鈴木 -1.6
< 使用 Excel:Excel2010、使用 OS:Windows8 >
関数での回答は他の人にお任せ...
VBA
Sub test() Dim x With Cells(1).CurrentRegion x = Filter(Evaluate("transpose(if(countif(offset(" & .Columns(1).Address & ",0,0,row(1:" & .Rows.Count & _ "))," & .Columns(1).Address & ")=1," & .Columns(1).Address & ",char(2)))"), Chr(2), 0) With .Offset(, 2).Resize(UBound(x) + 1, 2) .Columns(1).Value = Application.Transpose(x) .Columns(2).Formula = "=countifs(c1:c1,rc[-1],c2:c2,""<0"")" End With End With End Sub (seiya) 2014/04/14(月) 23:05
関数だと D1セル =COUNTIFS(A$1:A$6,C1,B$1:B$6,"<=-0.1") 下にフィルコピー かな。 (se_9) 2014/04/15(火) 05:46
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.