excel で自動で行を挿入する

質問

マクロ、関数等を使って、
１行ごとに指定行を挿入することは可能でしょうか？

たとえば、以下のようデータがあった場合。
1行AAA
2行BBB
3行CCC
これに3行挿入マクロ（関数）を実行した場合
以下のようになる感じです。
1行AAA
2行
3行
4行
5行BBB
6行
7行
8行
9行CCC

回答No.1

misatoanna · ベストアンサー

こんな内容ではいかがでしょうか。
とりあえず考えてみましたので、バタバタしていますが。。。

標準モジュールに書き込みます。
Sub 行挿入()
Dim TopRow As Integer, CntRow As Integer, InstRows As Integer
Dim i As Integer, ii As Integer
TopRow = ActiveCell.Row
CntRow = Selection.Rows.Count
InstRows = InputBox("挿入する行数を指定してください")
For i = 1 To CntRow
Rows(TopRow + (i - 1) * (InstRows + 1)).Select
For ii = 1 To InstRows
Selection.EntireRow.Insert
Next ii
Next i
End Sub

例えばA1:A10に連続しているデータを A1、A5、A9、A13 …… とするの
でしたら、A2:A10 を選択した状態で実行し、挿入する行数に 3 を指定
します。

回答No.2

Wendy02

たぶん、関数でも出来るはずですが、マクロのほうが簡単ですね。VBEは、標準モジュールでも、該当するシートモジ
ュールでも構いません。

'該当するセルの一部にカーソルを置いてください。

Sub Row_Insert()
　Dim r As Range
　Dim i As Long
　Const Insert_Row As Integer = 3 '挿入行の数を入力
　Set r = ActiveCell.CurrentRegion.Resize(, 1)
　If r Is Nothing Then Exit Sub
　For i = r.Count To 2 Step -1 '２行目までで終わり
　　r.Cells(i, 1).Resize(3).Insert Shift:=xlDown
　Next
End Sub