A列が空白の行を削除する(For文で)

前回に引き続きA列が空白の行を削除するコードですが、
今回はFor文にて行います。

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

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

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

通常For文ではカウンタは1ずつ加算されますが、
Step (Number)とすると、Numberの値だけ加算されます。
今回は－１としていますので、－１ずつ加算つまり、
カウンタはループ毎に一つずつ少なくなっていきます。

Sub A列が空白の行削除_For文()
    Dim intRowEnd As Integer    '最終行番号を格納
    Dim i         As Integer    '行カウンタ
    
    '最終行番号の取得
    intRowEnd = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = intRowEnd To 1 Step -1
        'A列が空白の場合、行削除
        If Cells(i, 1).Value = "" Then
            Rows(i).Delete
        End If
    Next
End Sub

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