行をコピーして１行当たりの行数を複数行に増やすマクロ（VBA） - サクッとコピペ ExcelVBA単純なものでも、はまってしまう時ははまってしまうのがマクロです。 先日、職場の人からこんなマクロ（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:=
