エクセルの複数行の挿入についての質問です。


現在、A1セルからA100セルに文字列が入力されています。入力されている行の下に10行の空白行を挿入したいのですが、行挿入を繰り返す以外に簡単に1行(文字列)・空白10行・1行(文字列)・空白10行・・・となるようにできないでしょうか?

■現在
A1:あああ
A2:いいい
A3:ううう
A4:えええ
A5:おおお



■空白行を挿入

A1:あああ
A2:空白行
A3:空白行



A11:いいい
A12:空白行
A13:空白行




みたいな感じです。

回答の条件
  • 1人5回まで
  • 登録:2006/09/04 17:25:31
  • 終了:2006/09/04 19:14:58

回答(3件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/09/04 17:30:43

ポイント5pt

10行選択してから 挿入とすればいいです。

id:torii_koichi

それは私でもわかります(>_<。)

A100セルあるので、100回繰り返すのが面倒なので質問にもあるように「簡単に」入力させる方法を探しています。

2006/09/04 17:55:44
id:taknt No.2

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/09/04 17:54:42

ポイント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

これで 挿入できます。

id:torii_koichi

回答ありがとうございました。

教えて頂いたマクロで実行したらできました!

ちなみに、教えていただいたのはセルを増やしていくようなのですが、A1・B1・C1・・と入力されている場合、同じように「行」を増やすにはどうしたらいいのでしょうか?

2006/09/04 18:23:03
id:Mook No.3

Mook回答回数1313ベストアンサー獲得回数3922006/09/04 18:27:47

ポイント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

id:torii_koichi

教えて頂いたマクロで一発でした!

回答ありがとうございました!

2006/09/04 19:13:10

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません