A100 何個の解決方法

質問者が納得（問い1） 私には分りません・・・貴方が５A/26A/27Aと決められたからコードに入れただけです。 元のデータに単にAなど無いでしょう・・・（E5はAでは無いでしょう） （問い２） その通りです・・・固定範囲を示します １００が２００になったり、変動することを見越して Dim R As Range, MyR As Range, LstRow As Long LstRow = Cells(Rows.Count, 10).End(xlUp).Row Set MyR = Range(Cells(1, 1),...

質問者が納得ちょっと幼稚な方法かも知れませんが、 まずC列・・・０を置き換える C2=?, C3のセルに =if(B3=0,C2,B3)これをオートフィル 次にD列・・・連続をカウント D2=1, D3以降のセルに =if(C2=C3,D2+1,1)これをオートフィル 更にE列・・・最大連続数を求める E2以降のセルに =if(C2=C3,"",D2)これをオートフィル 最後に回数を求めます。 G列に連続数を１～セットし、H列に H2のセルならば =COUNTIF($E$2:$E$101,G2)こ...

質問者が納得条件付き書式の場合は、セルの内容によって状況が変わりますのでセルの値としては変動します。 なので、「条件付き書式」を設定しているか否かを調べる方法を使わないと無理ですよ。 http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=32751&rev=&no=0&P=R&KLOG=214

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

質問者が納得質問で示されている最初の「例：」の表は表示がずれているものと思いますので、 下の画像の 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...

質問者が納得D2に、 =IF(SUMPRODUCT((A1={"特急","準急","急行"})*1),"電車","") これを下へオートフィルしてください。