現在、A1セルからA100セルに文字列が入力されています。入力されている行の下に10行の空白行を挿入したいのですが、行挿入を繰り返す以外に簡単に1行（文字列）・空白10行・1行（文字列）・空白10行・・・となるようにできないでしょうか?
■現在
A1：あああ
A2：いいい
A3：ううう
A4：えええ
A5：おおお
・
・
・
■空白行を挿入
↓
A1：あああ
A2：空白行
A3：空白行
・
・
・
A11：いいい
A12：空白行
A13：空白行
・
・
・
みたいな感じです。
No.2
13539
1198
25pt
あ、先ほどの回答は、すみません。間違えました。
マクロで実現する方法を回答します。
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
f = 0
While f = 0
r = ActiveCell.Row
Cells(r + 1, 1).Select
For i = 1 To 10
Selection.Insert Shift:=xlDown
Next i
Cells(r + 11, 1).Select
If Cells(r + 11, 1) = "" Then f = 1
Wend
End Sub
これで 挿入できます。
回答ありがとうございました。
教えて頂いたマクロで実行したらできました！
ちなみに、教えていただいたのはセルを増やしていくようなのですが、A1・B1・C1・・と入力されている場合、同じように「行」を増やすにはどうしたらいいのでしょうか？
No.3
1314393
50pt
同じくマクロで、行を増やす例ですがどうでしょうか。
Sub insertLines()
Dim i As Long
Dim lastLine As Long
lastLine = Range("A65535").End(xlUp).Row
For i = lastLine To 2 Step -1
Rows(i & ":" & i + 9).Insert Shift:=xlDown
Next
End Sub
教えて頂いたマクロで一発でした！
回答ありがとうございました！
50
49
3
2
1
それは私でもわかります(>_<｡)
A100セルあるので、100回繰り返すのが面倒なので質問にもあるように「簡単に」入力させる方法を探しています。