Skip to main content
本文から 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(行数 & ":" & 行数 + 1, 0).Select
        ActiveCell.Offset(行数, 0).Resize(2).Select '1行下のオフセットを起点として、選択範囲を2行分にリサイズして選択
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(2).Select 'アクティブセルを2行下に移動
    Loop
    Application.ScreenUpdating = True
End Sub

参考資料

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

ActiveCell.Offset(行数, 0).Select

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

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

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

参考資料

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

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

参考資料

本文に 14 文字追加
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select

ActiveCell.Offset(行数, 0).Select

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

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

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

参考資料

恐らく、ここが違うのだと思いますが、
ActiveCell.Offset(行数, 0).Select

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

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

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

参考資料

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

ActiveCell.Offset(行数, 0).Select

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

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

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

参考資料

ソース リンク
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(行数 & ":" & 行数 + 1, 0).Select
        ActiveCell.Offset(行数, 0).Resize(2).Select '1行下のオフセットを起点として、選択範囲を2行分にリサイズして選択
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(2).Select
    Loop
    Application.ScreenUpdating = True
End Sub

参考資料