Excel VBA 複数行を数の分だけ挿入したい

ご教授願います。

具体的には、シート２のセルに入ってる数の分だけ、
シート１に４行分増やして行きたいです。

例えば
シート２のA1セルに２と入ってるとして、
シート１の、
１０行から１４行をコピーして、
１５行目から下に１セット挿入、１９行目に２セット目を挿入。という形したいです。
ちなみにシート１の１５行目には、元々の文字列が入ってますので、コピペではなく挿入でお願いします。

自分でかなり調べましたが、
行挿入しか出来ませんでした。
宜しくお願いします。

No.1 ベストアンサー 回答者： zongai 回答日時： 2020/09/07 17:17

> ちなみにシート１の１５行目には、元々の文字列が入ってますので、コピペではなく挿入でお願いします。

> 自分でかなり調べましたが、
> 行挿入しか出来ませんでした。

えっと、挿入しかできないなら、解決してるんじゃ？
書き間違い？

ちなみに、挿入とコピーの違いは、
「マクロの記録」
を使ってつくられたコードを比較すればすぐわかりますよ。


さて・・・

> シート１に４行分増やして行きたいです。
> １０行から１４行をコピーして、

これだとコピー元の行が５行になっちゃいますが…？

> １５行目から下に１セット挿入、１９行目に２セット目を挿入。という形したいです。

これ、言い換えれば、「15行目に挿入」を2回繰り返すってことですよね？


とりあえず、コピー元を「１１行から１４行」の４行と想定して、ざっくり作ったものをお試し下さい。

Sub sample()
　　For i = 1 To Sheets("シート２").Range("A1").Value
　　　　Sheets("シート１").Rows("11:14").Copy
　　　　Sheets("シート１").Range("A15").Insert Shift:=xlDown
　　Next
End Sub

この回答へのお礼

あ、５行になってましたね！失礼しました！
なにせ初心者で、、
なるほどスッキリ解決しました！
ありがとうございます。
Forの書き方が頭がゴチャゴチャなって
どうしても思いつかなかったので
助かりました！

お礼日時：2020/09/07 19:21