10行間に空白3行追加したいです

質問

それぞれ２行の空白を含む３０行の紙データーをOCRしエクセル保存しました。
取り出してみたら各１行になっていました。
コピー貼り付けの都合上 １０行の間に２行ずつ追加して 30行にしたいです。
手動で複数行選択して行追加していますが、何回か繰り返さないと目的を達せません。残りが大量にあり、おたすけください。
１０行のデータは　B4:J14までですが 列無視で 行だけ追加で構いません。

回答No.4

KenKen_SP · ベストアンサー

こんにちは。KenKen_SP です。

マクロならこんな感じ。

　　For i = 15 To 4 Step -1
　　　　Rows(i & ":" & i + 1).Insert Shift:=xlDown
　　Next i

ブック内の全シートを一括で処理するなら、こんな感じ。

Sub ブック内全シート版()

　　Dim Sh As Worksheet
　　Application.ScreenUpdating = False
　　For Each Sh In ActiveWorkbook.Worksheets
　　　　For i = 15 To 4 Step -1
　　　　　　Sh.Rows(i & ":" & i + 1).Insert Shift:=xlDown
　　　　Next i
　　Next Sh
　　Set Sh = Nothing

End Sub

お礼

出来ました。ありがとうございます。
質問悪く　データー初行の４行目も移動しますので
For i = 15 To 4 Step -1を
For i = 15 To 5 Step -1 にして　目的を達せました。
ブック内全シートは　別の機会に使用させていただきます。
ありがとうございました。心より感謝申し上げます。

回答No.3

xyz37005

こういうときこそマクロを使いましょう。
手順
(1)新規ブックを開く。
(2)メニューより『ツール』→『マクロ』→『新しいマクロの記録』を選択。
(3)マクロの保存先として“個人用マクロブック”を選択、ショートカットキーに好きなキーを設定。
(4)１０行の間に２行ずつ追加して、３０行にする操作を普通に行う。
(5)メニューより『ツール』→『マクロ』→『記録終了』を選択。
(6)新規ブックを閉じる“個人用マクロブックを保存するか？”と聞かれるので“はい”を選択。

これであとは作業したいブックを開いて(3)で設定したショートカットキーを押せば、
(4)の操作が行われます。

お礼

ありがとうございました。
マクロの記録を忘れておりました。
大量登録でショートカットキーは空きが有りませんが、
ボタンを作ってやれば　良いかとも思いますので勉強してみます。
感謝申し上げます。

回答No.2

mshr1962

K4:K14に1,2,3,4,5...と入力
K15移行に上記の数値を２回コピーで貼り付ける。
B4:K36を「データ」「並び替え」でK列を昇順に並び替え
K列の数値をDELETE

※4～14だと11行ですが．．．4行目は項目行？

お礼

読んだだけでは　混乱します。
おもしろそうで　後でためします。
ありがとうございました。

回答No.1

usami33

根本対策ではありませんが
行の挿入はもっと簡単にできますよ
挿入したい箇所のセルに移動して、
「Ａｌｔ」、「Ｉ」、「Ｒ」を順番に押してみてください
※同時押しではないです、順番です
また、複数行挿入したい場合は、上記操作で行を増やした後、
「Ｆ４」を必要な行の数だけ押してください。
※「Ｆ４」は前に行った操作の繰り返しとなりますので、
覚えると便利です
※操作の繰り返し機能なので、別の場所を選んで繰り返しも可能です
他の方が根本対策を教えてくださると思いますので、合わせてご使用ください。

お礼

ショトッカットキーは作っておりますが
大量に有りますもので。

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