如何根据VBA中的空单元格删除行

Question

我试图根据d列中的单元格值删除整个行。到目前为止，我的整个代码是：

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

我不断遇到编译错误，如果没有其他或下一个没有，我应该如何解决此问题？

预先感谢。

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