【マクロの成長記録：19日目】月の最終日にセルを挿入、そこに月の合計売上を入れる

どーもKiyotomoです！

先日、仕事から帰ってきて、
「疲れた～、、、」
と思わず独り言を呟いたら、
急にアレクサが癒しの音楽を流し始めました。

アレクサ！って呼んでないのに、、、優しい

ということで今日もマクロ始めまーす！

今日の問題

練習問題20（総合練習2）｜VBA練習問題

月の最終日にセルを挿入、そこに月の合計売上を入れる

たまーに使いますね。。
数か月分のデータなどを落とすと全てが繋がったデータで出てくるため、
月ごとに合計した数字を見たい時は過去ありました。

記載したコード

Sub 練習20()
　Dim mm As Variant
　Dim i As Variant
　Dim total As Variant
 　  total = 0
　　i = 2
　　mm = Month(Cells(i, 1))
　Do Until Cells(i, 1) = ""
　If mm <> Month(Cells(i, 1)) Then
　Rows(i).Insert
　Cells(i, 1) = mm & "月合計"
　Cells(i, 2) = total
　　i = i + 1
　　mm = Month(Cells(i, 1))
　total = 0
　End If
　　i = i + 1
　total = total + Cells(i, 2)
　Loop
　Cells(i, 1) = mm & "月合計"
　Cells(i, 2) = total
End Sub

これで無事に動きました！

明日は土曜日！
やっと、まとまって勉強時間がとれます！

毎日ちょとずつ成長してきます！
今日もありがとうございましたー！