0

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

1 件の回答 1

0

恐らく、ここが違うのだと思いますが、

ActiveCell.Offset(行数, 0).Select

はい。
OffsetはActiveCellからの相対位置を示すだけで、選択範囲は1セルのみです。
複数行を挿入する場合は、ResizeRangeを使用して複数行を選択した後に挿入処理を行ってください。

下記のコードはOffsetResizeを併用して目的の動作を実現するサンプルです。

Sub 一行おきに二行セルを挿入()
    Application.ScreenUpdating = False
    行数 = 1
    Range("C2").Select
    Do While ActiveCell.Offset(行数).Value <> "" 
        ActiveCell.Offset(行数, 0).Resize(2).Select '1行下のオフセットを起点として、選択範囲を2行分にリサイズして選択
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(2).Select 'アクティブセルを2行下に移動
    Loop
    Application.ScreenUpdating = True
End Sub

参考資料

1
  • payanecoさん 有難うございます!とても勉強になります。取り急ぎ、ご提供いただいたコードにて、動作確認してバッチリでした! 自分でも勉強して、コード作成できるよう精進いたします。 Commented 2023年7月27日 5:24

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。