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

我试图根据D列中的单元格值是否为NULL来删除整行。我的整个代码到目前为止是：如何根据VBA中的空单元格值删除行

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

我不断收到编译错误，要么如果没有其他人或没有对于接下来，我应该怎么解决这个问题？

在此先感谢。

来源

2017-09-15 D.Yvel

您需要循环向后或你将不得不与它跳过行的问题。 – braX

https://stackoverflow.com/questions/30462449/excel-vba-find-empty-cell-and-delete-the-row?rq=1 – braX

有几件事情：

很多语法的

安置关闭。
添加或删除行时，您需要根据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

来源

2017-09-15 14:03:05

不应该Endif和Next必须处于交换位置。 –

@AnkitBajpai - 修正。没有看到我的错字。谢谢。是你压低了吗？ –

从不。我的拇指规则，如果你不能得票，Never Downvote others。 –

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

回答

相关问题