- ベストアンサー
【エクセルマクロ】小計下への空白行挿入
- マクロ初心者向けのエクセルマクロについての質問です。データを日付ごとに集計し、小計を挿入するマクロを使いたいですが、小計の下に空白行を挿入したいです。
- エクセルマクロを使用して、日付ごとのデータを小計で集計する方法について質問です。マクロコード内で、小計行の下に空白行を挿入する方法を教えてください。
- エクセルマクロ初心者の質問です。日付ごとにデータを集計し、小計行を挿入したいですが、見やすくするために小計行の下に空白行を挿入したいです。マクロコードの作成方法を教えてください。
- みんなの回答 （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 これを、 ' 小計行を挿入 Rows(GYO).Insert 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 + 2 '+1 を +2 に変更 にすれば良いです。 年度計の上だけに空行を挿入したいのであれば、 ' 総合計 Cells(GYO, 2).Value = "年度合計" を、 ' 総合計 GYO = GYO + 1 'この行を追加 Cells(GYO, 2).Value = "年度合計" にすれば良いです。
お礼
表も見やすくなり助かりました！ ありがとうございました！！！