エクセル 行挿入

エクセルの行挿入を教えてください。
22行目から4行挿入。
以降7行ごとに最終行まで4行づつ挿入。
をマクロでご提示いただければ幸いです。
またマクロの内容もある程度ご説明いただければ幸いです。

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/03/16 20:52

こんばんは！

１度きりの操作になると思いますが・・・

Sub 行挿入()
Dim k As Long, lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A:A").Insert
Range("A1:A21") = 0
With Range(Cells(22, "A"), Cells(lastRow, "A"))
.Formula = "=INT(ROW(A7)/7)" '★
.Value = .Value
End With
For k = 0 To WorksheetFunction.Max(Range("A:A")) - 1
Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(4) = k
Next k
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Range("A:A").Delete
End Sub

こんな感じではどうでしょうか？

＞以降7行ごとに・・・
の解釈が違うかもしれませんが、
とりあえずはこの程度で！m(_ _)m

この回答へのお礼

試してみました。
完璧です。
助かりました。ありがとうございます。

お礼日時：2015/03/23 19:22