VBAで行のコピー

質問

タイトルの通りなのですが、VBAで行のコピーを行いたいのですが、うまくいきません。教えて下さい。

　あ　1　(空白)
　い　2　A
　う　3　(空白)
　え　4　(空白)
　お　5　B

この様な表があるのですが、3列目に空白以外の文字があった場合その下に1行コピーをしたいのです。
上の表の場合は3列目にAがあるので"い"と"う"の間に"い"の行をコピーしてもう一行入れたいです。Bについても同様です。

すいませんが、教えていただければありがたいです。
よろしくお願いいたします。

回答No.1

zap35 · ベストアンサー

Ａ列が空白になるまで処理を行う前提で良ければ、以下のようなマクロでできます。

Sub Macro9()
Dim idxR As Long
idxR = 1
Do While Cells(idxR, 1) <> ""
If Cells(idxR, 3) = "" Then
idxR = idxR + 1
Else
Rows(idxR).Copy
Rows(idxR + 1).Insert Shift:=xlDown
idxR = idxR + 2
End If
Loop
Application.CutCopyMode = False
End Sub

お礼

素晴らし過ぎます！！！
完璧にできました。本当に助かりました。ありがとうございます。私も自分で出来るように勉強したいと思います。

もう一度、ありがとうございます！！