如何根据VBA中的空单元格值删除行[重复]

Question

我正在尝试根据 D 列中的单元格值是否为 NULL 来删除整行。到目前为止，我的整个代码是：

Sub DeleteNULL()

Dim i As Long

For i = 2 To 119713
        If IsEmpty(Range("Di")) = True Then
             Rows([i]).EntireRow.Delete

        Else
            If IsEmpty(Range("Di")) = False Then
            Next i

        End If


End Sub

我不断收到编译错误，如果没有 Else 或 Next 没有 For，我应该如何解决这个问题？

提前致谢。

Answer 1

一些事情：

1. 大量语法的放置已关闭。
2. 添加或删除行时，您需要根据 Excel 处理这些事件的方式向后循环。

见下面的代码：

Sub DeleteNULL()

    Dim i As Long

    For i = 119713 To 2 Step -1
        If IsEmpty(Range("D" & i)) Then Rows([i]).EntireRow.Delete
    Next i

End Sub