Skip to main content
3 / 3
本文から 41 文字削除
payaneco
  • 1.2万
  • 2
  • 23
  • 58

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

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

参考資料

payaneco
  • 1.2万
  • 2
  • 23
  • 58