[求助]：如何删除execl中的数值为0的无用行

redlittlefox

我编了一个小程序，可以实现，非常简单方便
代码如下：
Dim mm As Integer
Private Sub CommandButton1_Click()
For mm = 1 To 100 '范围为100以内
If Cells(mm, 3).Value = "0" Then '以第三列为例
Rows(mm).Select '选择第三列为0的行
Selection.Delete Shift:=xlUp '行删除
End If
Next mm
End Sub

sgsldz

不错，就是这效果，那如果我只是想隐藏该行呢（即把这行的行高设为0）？不知道有没有办法，看来版主要给你加分了！

eeeeee

因为有大家的帮助，所以我才能够不断的提高！

gouweicao78

数据→筛选→自动筛选→选择0，把筛出来的行一次选中，删除或隐藏即可。

mjh

感谢LZ的无私奉献。

zjsss

感谢redlittlefox的奉献

CRJQ

看来碰到这个问题的不止俺一个呀，我是做好了一套互相引用的表格，几个基础表格填好后总表也就生成了，但是经常会有材料为0 的材料，开始时逐个隐藏再在 序号 列重新输入序号，但是比较麻烦，后来干脆不管了，0 就 0 吧，这样概算的同志们也不用每次都要调整顺序了，速度还快，但总觉得不妥，需要高人指点呀。

xiaobearlinlin

嗯，可行

lixiaochun

没有试过，先知道有这么回事。

hhzjxss

给楼主一个建议，最好是把你的问题我相关附件传上来，然后说明你的问题，我要得到的答案效果，大家才好帮你呀！

paladi

看来高手还真不少啊，学习了～～～

9937965

我的方法不知道能不能更快：
1、编辑>替换>把全部0值替换为空值
2、编辑>定位>选定全部工作表，定位条件为空值，定位到单位格后，右键，删除整行

grapelun

帮忙顶一下