【エクセルマクロ】小計下への空白行挿入
マクロ初心者です。
日付ごとのデータがありまして、
webで検索した次のマクロを使って、
' 1行目から処理開始(見出しなし)
GYO = 1
Do While Cells(GYO, 1).Value <> ""
' 小計グループの先頭行→GYO1
GYO1 = GYO
GYO = GYO + 1
' 次の行から同じグループでない行を見つける
Do While Cells(GYO, 1).Value = Cells(GYO1, 1).Value
GYO = GYO + 1
Loop
' 同じグループの最終行→GYO2
GYO2 = GYO - 1
' 小計行を挿入
Rows(GYO).Insert
Cells(GYO, 2).Value = Cells(GYO1, 1).Value & "月の小計"
Cells(GYO, 3).Value = " ********** "
Cells(GYO, 6).FormulaR1C1 = "=SUBTOTAL(9,R" & GYO1 & "C:R" & GYO2 & "C)"
Cells(GYO, 7).FormulaR1C1 = "=SUBTOTAL(9,R" & GYO1 & "C:R" & GYO2 & "C)"
Cells(GYO, 8).FormulaR1C1 = "=SUBTOTAL(9,R" & GYO1 & "C:R" & GYO2 & "C)"
GYO = GYO + 1
Loop
' 総合計
Cells(GYO, 2).Value = "年度合計"
Cells(GYO, 3).Value = " ********** "
Cells(GYO, 6).FormulaR1C1 = "=SUBTOTAL(9,R1C:R" & GYO2 & "C)"
Cells(GYO, 7).FormulaR1C1 = "=SUBTOTAL(9,R1C:R" & GYO2 & "C)"
Cells(GYO, 8).FormulaR1C1 = "=SUBTOTAL(9,R1C:R" & GYO2 & "C)"
次のように、小計と年度計を挿入できるのですが、
見にくいので、小計の下に1行挿入したいのです。
4/1 ○○○ ¥□□
|
4/30 ○○○ ¥□□
4月の小計 **** ¥□□
5/1 ○○○ ¥□□
|
5/31 ○○○ ¥□□
5月の小計 **** ¥□□
6/1
| (途中省略)
4/30
4月の小計 **** ¥□□
年度計 **** ¥□□
マクロに詳しい方、アドバイスよろしくお願いします!