空行删除不干净

sj15627581616

Sub 删除空行()
For i = 2 To 2700
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next

End Sub

附件是某个机台的月生产记录，导出时存在空行，但是删除不干净，求大神指导是为什么？该怎么改

网海遨游

是因为有不可见字符，表面上是空，实际有字符。当然删除不干净的。

liulang0808

For i =  2700 to 2 step -1
这样看看呢

网海遨游

Sub 删除空行()
r = [a65536].End(3).Row
For i = r To 2 Step -1
If Len(Cells(i, 1)) <= 2 Then
Rows(i).Delete
End If
Next
End Sub

sj15627581616

网海遨游 发表于 2019-10-17 20:46
是因为有不可见字符，表面上是空，实际有字符。当然删除不干净的。

谢谢指导，复制替换一下就解决了，有对可见字符进行筛选的对应代码吗？

lsc900707

常规方法删除行要倒着删。因为有不可见字符，可以这样修改：

1. Sub 删除空行()
   
2.     For i = 2700 To 2 Step -1
   
3.         If Len(Cells(i, 1)) < 3 Then Rows(i).Delete
   
4.     Next
   
5. End Sub

复制代码

sj15627581616

网海遨游 发表于 2019-10-17 20:50
Sub 删除空行()
r = [a65536].End(3).Row
For i = r To 2 Step -1

我明白了，不可见字符长度1，只要大于或等于2即可删除对应的行