日にちが変わり次第改行できるマクロ

質問

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

excelでデータが入力されています(修正前)。それを日が
変わり次第、改行できるマクロを作りたいと思っています。(修正後）
ですが、まったくのVBA初心者であり、これから勉強しようと
思っているのですが、仕事ですぐにやる様に言われ焦って
います…。

もしわかる方いましたら、教えてください。よろしくお願い致します。

先日間違いて投稿してしまったので、再度投稿です。

回答No.1

pkh4989 · ベストアンサー

こんにちは。

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

日にちが入力されている列が「A」として

Sub 日にちが変わり次第改行()
　　Dim wR　　　　 As Long
　　Dim wI　　　　 As Long
　　Dim wX　　　　 As Long
　　Dim wDate　　 As String
　　'
　　Application.ScreenUpdating = False
　　With ActiveSheet
　　　　wR = Range("A" & Rows.Count).End(xlUp).Row
　　　　For wI = wR To 2 Step -1
　　　　　　wDate = .Cells(wI, 1).Value
　　　　　　For wX = wI - 1 To 1 Step -1
　　　　　　　　If wDate <> .Cells(wX, 1).Value 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を押してマクロ一覧からマクロ名を選択して実行