質問番号：1416819276
Excelにて指定した範囲のデータをコピーし、起点のセルから3行置きに挿入していきたいです。
今、添付の画像のようなデータがあります。
5行目から20行目のデータを、関数も含めてコピーしまして。
それを、23行目の真下、26行目、29行目、32行目、35行目の真下・・・と、23行目を起点に、3行置きにコピーしたデータを挿入していきたいのです。
そしてその処理を5万行ほど行いたいのですが。
何かこれを実現するマクロ等、ご存知でしたらお教えいただけないでしょうか。
サンプルファイルもこちら http://xfs.jp/S92fHS に置きました。
お手数ですがどなたかよろしくお願い致します。
Option Explicit
Sub main()
Dim LastRow As Long
Dim LoopCount As Long
Dim InsertRow As Long
Dim lp As Long
If Worksheets.Count = 1 Then
Worksheets("Sheet1").Copy After:=Worksheets("Sheet1")
Worksheets(2).Name = "Sheet2"
End If
With Worksheets(2)
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
LoopCount = Application.RoundUp((LastRow - 20) / 3, 0)
InsertRow = 24
For lp = 1 To LoopCount
.Range("5:20").Copy
.Range(InsertRow & ":" & InsertRow + 16).Insert
InsertRow = InsertRow + 19
Next lp
End With
End Sub
