excel - VBA 空白行を削除する方法

Question

Excel の VBA で、行のすべての列が空白になっているスプレッドシート テーブルの行を自動的に削除する方法を知りたいです。たとえば、AD からの 4 つの列を含むテーブルがある場合、行にすべての列が空白である場合、テーブルから自動的に削除するにはどうすればよいですか? これは可能ですか？

誰かがこれのサンプルコードを提供できますか?

ありがとう

Answer 1

検討：

Sub RowKiller()
    Dim N As Long, i As Long, r As Range
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    For i = N To 1 Step -1
        Set r = Range("A" & i & ":D" & i)
        If wf.CountA(r) = 0 Then
            r.EntireRow.Delete
        End If
    Next i
End Sub