Excel VBA如何删除空行

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

有人能提供一个示例代码吗

谢谢

考虑一下：

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

---

你需要自己尝试解决这个问题，并发布一些你尝试过的东西。你试过什么吗？这是一个常见的问题，所以在这个网站和谷歌上有很多关于它的信息。@Sam我不做VBA编码，从来没有做过，我只是帮了一个表弟的忙，因为他想在电子表格上得到帮助，但没想到会做任何编码。老实说，我查过谷歌，但是很多信息都是关于显示/隐藏栏的，我想知道如何不简单地包括空白行，因为它插入一个完整的表到另一个表，但这意味着包括空白行，我没有填写下面的解决方案应该在你的情况下工作……这需要一个按钮，点击这是为了实现，还是将在任何时候自动完成。换句话说，RowKiller（）是否分配给任何对象？当我测试宏时，我直接从菜单系统运行它。要使用Excel中的宏，请执行以下操作：1。ALT-F8 2。选择宏3。使用Mac excel 2011触摸RUNIm，以便猜测运行宏的命令是否不同？不确定…….您的excel版本上是否有“开发人员”选项卡？是否有“开发人员”选项卡，它包含以下选项“编辑器”、“宏”、“记录”、“相对参考”和其他一些选项。如果我点击“宏”，它会要求我分配宏，这被称为“Sheet32.RowKiller”。正如我所做的是打开这个工作表的编辑器并复制您的代码进行测试，但是当我关闭编辑器时，什么也没有发生，仍然显示空白行。