[已解决]excel VBA 删除多个单元格中都为0或\的行

si123yt

如表1中，如果定额、净重、定额面积、定额长度单元格的数据为0或者\,，即没有可用数据时，将这行删除。删除后的结果如表1整理所示。
请老师指教！

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-9-22 09:00

1. Sub Greenhand()
   
2.     Dim i&
   
3.     For i = Cells(65536, "n").End(3).Row To 7 Step -1
   
4.         If Val(Cells(i, "n")) = 0 Then
   
5.             Cells(i, "n").EntireRow.Delete
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

UNION可能会超限，直接用的循环删除，代码效率可能低点。

跳转到最佳答案楼层

无为123456

Sub abc()


For i = ActiveSheet.UsedRange.Rows.Count To 7 Step -1
     If Trim(Cells(i, "p")) = "0" Then Rows(i).Delete
     If Trim(Cells(i, "p")) = "\" Then Rows(i).Delete
Next

End Sub

雨吧

1. Sub YuBa()
   
2.     Dim i&, j%
   
3.     For i = [c65536].End(3).Row To 7 Step -1
   
4.         For j = 11 To 14
   
5.             If Val(Cells(i, j)) Then Exit For
   
6.         Next
   
7.         If j > 14 Then Rows(i).Delete
   
8.     Next
   
9. End Sub

复制代码

syt.rar (31.52 KB, 下载次数: 6)

2016-9-22 08:11 上传

点击文件名下载附件

望帝春心

1. Sub Greenhand()
   
2.     Dim i&
   
3.     For i = Cells(65536, "n").End(3).Row To 7 Step -1
   
4.         If Val(Cells(i, "n")) = 0 Then
   
5.             Cells(i, "n").EntireRow.Delete
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

UNION可能会超限，直接用的循环删除，代码效率可能低点。

望帝春心

参考附件

si123yt

望帝春心 发表于 2016-9-22 09:00
UNION可能会超限，直接用的循环删除，代码效率可能低点。

我是菜鸟，大神能解释一下每一句话的意思吗？

望帝春心

si123yt 发表于 2016-9-22 10:48
我是菜鸟，大神能解释一下每一句话的意思吗？

这是最简单的东西，建议先入门，报班买书箱，系统学点入门知识，我不太会讲，这是入门级的内容了。