人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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



■空白行を挿入

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



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




みたいな感じです。

●質問者: torii_koichi
●カテゴリ:コンピュータ
✍キーワード:A1 A3 エクセル セル 入力
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● きゃづみぃ
●5ポイント

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

◎質問者からの返答

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

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


2 ● きゃづみぃ
●25ポイント

あ、先ほどの回答は、すみません。間違えました。

マクロで実現する方法を回答します。

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・・と入力されている場合、同じように「行」を増やすにはどうしたらいいのでしょうか?


3 ● Mook
●50ポイント

同じくマクロで、行を増やす例ですがどうでしょうか。

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

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ