1行おきに2行空白のセルを挿入したいのですが、下記のマクロでは1行おきに1行しか挿入できません。他の列はそのままで、C列のみ、そのような処理をしたいと思っております。
恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
自力では解決できず。ご教示いただけますと幸いです!
現状のコード
Sub 一行おきに一行セルを挿入()
Application.ScreenUpdating = False
行数 = 1
Range("C2").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数).Select
Loop
Application.ScreenUpdating = True
End Sub