我现在时间不够了,要下班了,没给你找到具体解决办法。但我知道问题出在哪:
1、你用数组填充了d列,填充的内容长度为零,但实际结果不是空,所以这行代码无法执行。可以这么检验:
If IsEmpty(Cells(6, 4)) Then '判断d6是否为空,如果是空,就在e6显示true
Cells(6, 5) = True
Else
Cells(6, 5) = False
End If
谢谢,我按思路试试,暂时我是用如下方法应急
Dim i As Integer
For i = Sheet2.UsedRange.Rows.Count To 1 Step -1
If Len(Sheet2.Cells(i, 4)) = 0 Then
Sheet2.Rows(i).Delete
End If
Next i