EXCEL、VBA

【VBA】シートに空行を1行ずつ挿入する

 

シートに空行を挿入する

データのあるシートでごくたまに1行ずつから行を入れたいシーンってないでしょうか？

 

これ↓を

 

こんな風にしたい時に使える関数です。

 

 

シートの存在チェック

上のようにすでにデータのあるシートに空行を挿入する関数です。

引数　ws ：ワークシート

Public Sub InsertEmptyRow(ByVal ws As Worksheet)

    Dim lastRowsCount As Long
    lastRowsCount = ws.Cells(Rows.Count, 1).End(xlUp).Row  '1列目で最終行を取得する
    
    Dim i As Integer
    For i = lastRowsCount To 2 Step -1
        ws.Cells(i, "A").EntireRow.Insert
        ws.Cells(i, "A").EntireRow.ClearFormats
    Next

End Sub

 

実行例

' Sheet2に空行を挿入する
Call InsertEmptyRow(Worksheets("Sheet2"))