[[20140414222831]] 『マイナスだけの件数』(モリタ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マイナスだけの件数』(モリタ)

 田中、木村、鈴木の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.