A100 4 A A Aの解決方法

質問者が納得式を作る過程にて, テストをしやすくするため表記をかんたんにしてます ex. タイトル, 年月->エクセル標準のシリアル値, アイテム名 etc ◇表は画像の位置に置きましたので、実用には適宜、式のセル位置を変えて下さい ID,A6: =IF(ROW(A1)>COUNT($D$1:$H$1)*COUNTA($A$2:$A$3),"",OFFSET(A$2,ROUNDUP(ROW(A1)/COUNT($D$1:$H$1),0)-1,)) と入力し、↑A6の式を C6 ま...

質問者が納得作業列を利用すれば一般機能で十分可能です。 付図参照 B1=MID(A1,2,FIND(".",A1)-2) フィルハンドルをダブルクリック この列をキーに昇順ソートします。

質問者が納得セルO1に「大根」、セルO2に「４月」と指定するとして、 P1=SUMIF(A2:A100,O1,OFFSET(A1,1,MATCH(O2,A1:E1)-1,100)) 上記でいかがでしょう？ １行目の４月、５月・・・とセルO2の「４月」は全角半角の間違いを防ぐために数字だけを入力するようにして、表示形式で「○月」とするのがいいと思います。

質問者が納得簡潔に、こんな感じでいいと思いますよ。 =SUMPRODUCT((A2:A9<=B2:B9)*(A2:A9<>""))

質問者が納得「1」のところを「ROW(A1)」などにしておけばいいです。 横方向なら COLUMNで。

質問者が納得（問い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),...

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

質問者が納得◆これでいかがでしょう E1=IF(A1="","",IF(COUNT(B2:C20),A1-MIN(OFFSET(D2,,,MATCH(1,INDEX(1/((B2:B20<>"")+(C2:C20<>"")),),0))),"")) ★下にコピー