A16 a7の解決方法

質問者が納得やっぱりマクロになります＾＾Sub try3()Dim i As Long, n As Longn = 0n = Range("a1").End(xlDown).RowFor i = n To 1 Step -1 Rows(i + 1).Resize(3).Insert shift:=xlShiftDown Cells(i, 1).Copy Cells(i, 1).Resize(3).Offset(1)NextEnd Sub上記を標準モジュールにコピペします。Alt+F11 & ...

質問者が納得何か間違っていませんか=SUM（A1:A7)=SUM（A8:A14）=SUM（A15:A21）ではないのですか=SUM(INDIRECT("A"&(ROW(A1)-1)*7+1&":A"&(ROW(A1)-1)*7+7))

質問者が納得常のその行含め上方向に5つの合計ですね。作業列C列を使います。B1：=IF(C1<6,SUM($A$1:A1),SUM(INDIRECT("A"&MATCH(C1-4,C:C,0)&":A"&ROW()))) C1：=COUNT($A$1:A1)このB1C1を下方向にオートフィル式の説明は省略します。・・・

質問者が納得A4:=SUMPRODUCT(($B$1:B4)*(MOD(ROW($B$1:B4)+2,3)=0))/100*9A5:=SUMPRODUCT(($B$1:B5)*(MOD(ROW($B$1:B5)+2,3)=1))/100*9a6:=SUMPRODUCT(($B$1:B6)*(MOD(ROW($B$1:B6)+2,3)=2))/100*9このA4:A6を下方向にオートフィルだだし100の倍数の入力しか想定していません。101の入力は9.09になります。3行おきの合計より100を割り9を掛ける。