- ベストアンサー
日にちが変わり次第改行できるマクロ
「修正前] [修正後] 1月12日 1月12日 1月12日 → 1月12日 1月13日 1月13日 excelでデータが入力されています(修正前)。それを日が 変わり次第、改行できるマクロを作りたいと思っています。(修正後) ですが、まったくのVBA初心者であり、これから勉強しようと 思っているのですが、仕事ですぐにやる様に言われ焦って います…。 もしわかる方いましたら、教えてください。よろしくお願い致します。 先日間違いて投稿してしまったので、再度投稿です。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 以下のマクロで、お試しください。 日にちが入力されている列が「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を押してマクロ一覧からマクロ名を選択して実行