VBA如何删除空行

Question

在excel的VBA中，我想知道如何自动删除电子表格表格中的行，其中行中的所有列都是空白的。例如，如果我有一个包含A-D四列的表，如果一行将所有列留空，那么如何自动将其从表中删除？这可能吗？

有人可以为此提供示例代码吗？

由于

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