質問: excel vba 複数行を数の分だけ挿入したい ご教授願います。 具体的には、シート2のセルに入ってる数の分だけ、 シート1に4行分増やして行きたいです。 例えば シート2のa1セルに2と入ってるとして、 シート1の、 10行から14行をコピーして、 15行目から下に1セット挿入、19行目に2セット目を挿入。という形したいです。 ちなみにシート1の15行目には、元々の文字列が入ってますので、コピペではなく挿入でお願いします。 自分でかなり調べましたが、 行挿入しか出来ませんでした。 宜しくお願いします。
回答: > ちなみにシート1の15行目には、元々の文字列が入ってますので、コピペではなく挿入でお願いします。 > 自分でかなり調べましたが、 > 行挿入しか出来ませんでした。 えっと、挿入しかできないなら、解決してるんじゃ? 書き間違い? ちなみに、挿入とコピーの違いは、 「マクロの記録」 を使ってつくられたコードを比較すればすぐわかりますよ。 さて・・・ > シート1に4行分増やして行きたいです。 > 10行から14行をコピーして、 これだとコピー元の行が5行になっちゃいますが...? > 15行目から下に1セット挿入、19行目に2セット目を挿入。という形したいです。 これ、言い換えれば、「15行目に挿入」を2回繰り返すってことですよね? とりあえず、コピー元を「11行から14行」の4行と想定して、ざっくり作ったものをお試し下さい。 sub sample() for i = 1 to sheets("シート2").range("a1").value sheets("シート1").rows("11:14").copy sheets("シート1").range("a15").insert shift:=xldown next end sub