単純なものでも、はまってしまう時ははまってしまうのがマクロです。 先日、職場の人からこんなマクロ(VBA)の相談を受けました。 実際は1000行くらいあり、列も20列くらいあったのですが、単純な作業といえば単純な作業です。最初できたのはこんなコードでした。 <ちょっとカッコ悪いコード> Sub 連続して4行に増やす() '最終行の取得 Dim LstRow As Long LstRow = Cells(Rows.Count, 1).End(xlUp).Row '繰り返し処理 For i = LstRow To 2 Step -1 Rows(i).Select Application.CutCopyMode = False Selection.Copy Selection.Insert Shift:=xlDown Selection.Copy Selection.Insert Shift:=