月ごとに改行するマクロを作成したい

質問

ＶＢＡに関してまったくの知識がありませんが
これから勉強をしようと思っています。ですが
その前に仕事でやらなければいけない事があり
困っています。

「修正前] [修正後]
1月12日　　　　　1月12日
1月13日　　→　　1月13日
2月14日　
　　2月14日

excelで月のデータが入力されています(修正前)。それを月が
変わり次第、改行できるマクロを作りたいと思っています。(修正後）

もしわかる方いましたら、よろしくお願い致します。

また初心者でもわかりやすいＶＢＡの参考書でお勧めが
ありましたらよろしくお願い致します。

回答No.1

pkh4989 · ベストアンサー

こんにちは。

以下のマクロで、お試しください。

月が入力されている列が「A」として

Sub 月ごとに改行()
　　Dim wR　　　　 As Long
　　Dim wI　　　　 As Long
　　Dim wX　　　　 As Long
　　Dim wMonth　　 As String
　　'
　　Application.ScreenUpdating = False
　　With ActiveSheet
　　　　wR = Range("A" & Rows.Count).End(xlUp).Row
　　　　For wI = wR To 2 Step -1
　　　　　　wMonth = Format(.Cells(wI, 1), "yy/mm")
　　　　　　For wX = wI - 1 To 1 Step -1
　　　　　　　　If Right(wMonth, 2) <> Right(Format(.Cells(wX, 1).Value, "yy/mm"), 2) Then
　　　　　　　　　　.Rows(wX + 1).Insert Shift:=xlDown
　　　　　　　　　　wI = wX + 1
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　Next
　　End With
　　Application.ScreenUpdating = True
End Sub

<マクロ貼付>
(1) Alt+F11 (ツール → マクロ → Visual Basic Editor) →「挿入」→「標準モジュール」で表示される画面に貼り付け
(2) 実行は、(F5を押す)又は、シート画面に戻って Alt＋F8を押してマクロ一覧からマクロ名を選択して実行

お礼

詳しく説明をしていただきありがとうございます。

教えていただいた事でやりたい事が出来ました。
これからＶＢＡを勉強してソースの意味を理解して
行きたいと思っています。