セル/行/列を挿入する（Insertメソッド）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

引数Shiftを省略すると、挿入対象となるセル範囲の形に応じて自動的に移動する方向が決まります。 列が対象の場合は必ず右方向、行が対象の場合には必ず下方向に移動します。 セル範囲が縦長の場合は右方向、横長か正方形の場合は下方向に移動します。 対象が行/列以外の場合は特に、引数Shiftは省略しない方が良いでしょう。 次のサンプル1は、3行目以降の行に1行おきに空白行を挿入します。 ●サンプル1● Sub Sample1() Dim myLastRow As Long Dim i As Long 'データの最終行を取得 myLastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行から上方向にループ For i = myLastRow To 3 Step -1 Rows(i).Insert Shift:=xlDown Next i End Sub セル