A列が空白の行を削除する

前回Rows(行番号).Deleteにて行削除を行いましたが、
今回はA列が空白の場合に行削除を行う
VBAコードを作成してみます。

以下のようなシートがあるとします。

以下コードでは、まず最終行番号を取得しintRowEndに格納しています。

そして、1行目まで下から順にA列が空白の場合、行削除を行っています。

Sub A列が空白の行削除()
    Dim intRowEnd As Integer    '最終行番号を格納
    Dim i         As Integer    '行カウンタ
    
    '最終行番号の取得
    intRowEnd = Cells(Rows.Count, 1).End(xlUp).Row
    
    i = intRowEnd   '最終行番号を行カウンタにセット
    
    Do While i >= 1
        'A列が空白の場合、行削除
        If Cells(i, 1).Value = "" Then
            Rows(i).Delete
        End If
        i = i - 1
    Loop
    
End Sub

実行すると、結果は以下のようになります。