A100 お願いの解決方法

質問者が納得=SUMPRODUCT((A1:A100="東京")*(B1:B100<>"")) でいかがでしょう。

質問者が納得10行ずつだと、結果の行が間違ってますよね？ ２行目にあったデータは１２行目にいくかと思います。 とりあえず、標準モジュールに以下をコピペして実行すると出来るかと。 10行ずつってのが間違いだったら 「Const sortrows As Long = 10 '挿入行数」 の10を修正して下さい。 １００行目の下にも１０行挿入しているので、それをやめる場合は 「For i = 101 To 2 Step -1」 を 「For i = 100 To 2 Step -1」 にして下さい。 ******** ...

質問者が納得=SUMPRODUCT((A1:A100="りんご")*(B1:B100="水")*(C1:C100<>"1")) ctrl+shift+enterで確定させるなら =COUNT(IF((A1:A100="りんご")*(B1:B100="水")*(C1:C100<>"1"),)) で出来ると思います。

質問者が納得範囲がA50:B100とするならVLOOKUPの範囲の部分を下のようにすればいいかと INDIRECT("A"&B1&":B"&B2)

質問者が納得補足へ： ３つ４つなら{}が分かり易いかと思ったんですが、 そうですか・・・・ そうしたら、 合計は、 =SUMPRODUCT(($A$1:$A$100>=1)*($A$1:$A$100<86)*$B$1:$B$100) とA列「1以上」、A列「86未満」のように指定します。 平均は、 =SUMPRODUCT(($A$1:$A$100>=1)*($A$1:$A$100<86)*$B$1:$B$100)/SUMPRODUCT(($A$1:$A$100>=1 )*($A$1:$A$...

質問者が納得質問で示されている最初の「例：」の表は表示がずれているものと思いますので、 下の画像の A1:F4 の表のようなことかと思います。 下の画像の A1:F4 の表のようなことで十分な気がしますが。 ＞１つセルにくだものの名前を入れると のところは下の画像の A6:B9 のことと思います。 B7 のセルに =IF($B$6="","",VLOOKUP(A7,$A$2:$F$4,MATCH($B$6,$A$1:$F$1,0),0)) と式を入れて B7 のセルを B...

質問者が納得shumari_kさん C列が「0」以外のとき、A列の同行の数字をD列に抽出します。 Sub sample() Dim c As Range, cnt As Long For Each c In Range("C1:C100") If c <> 0 Then cnt = cnt + 1 Cells(cnt, 4) = c.Offset(, -2) End If Next c End Sub

質問者が納得B1に =INDEX(A:A,ROW(A1)*5-4) と入れて下にコピーすればOKです。

質問者が納得地図が・・・・？ B1に =MAX(INDIRECT("a"&ROW(A1)*5-4&":a"&ROW(A1)*5)) と入れて下にコピーでOKです。 追記： こっちの方がいいですね =MAX(OFFSET($A$1,ROW(A1)*5-5,0,5,1))