• ベストアンサー

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

「修正前]       [修正後] 1月12日        1月12日 1月12日  →     1月12日 1月13日               1月13日 excelでデータが入力されています(修正前)。それを日が 変わり次第、改行できるマクロを作りたいと思っています。(修正後) ですが、まったくのVBA初心者であり、これから勉強しようと 思っているのですが、仕事ですぐにやる様に言われ焦って います…。 もしわかる方いましたら、教えてください。よろしくお願い致します。 先日間違いて投稿してしまったので、再度投稿です。

質問者が選んだベストアンサー

  • ベストアンサー
  • pkh4989
  • ベストアンサー率62% (162/260)
回答No.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を押してマクロ一覧からマクロ名を選択して実行

関連するQ&A