下記のマクロですが、これだと1行おきに1行しか挿入できず、本当は11行おきに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