D列单元格为空时，如何删除该行全部内容

ni57

试了一下这段代码，晕倒，太慢非常慢，害怕死机啊

Sub 删除D列为空的行()
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = lastrow To 1 Step -1
     If Len(Cells(i, 4)) = 0 Then
     Rows(i & ":" & i).Select
     Selection.Delete Shift:=xlUp
     End If
Next i
End Sub

yangyangzhifeng

试试看

1. Sub test()    Range("d2", Cells(Cells.Find("*", , , , 1, 2).Row, 4)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
2. End Sub
   

复制代码

ni57

谢谢楼上热心帮忙，单元格是真正空格时，这个代码简洁好用；不过我的“似空非空”，该怎么办呢？也就是该单元格里有公式，譬如公式=IF(表一!$K66="","",8888888），结果似空非空。