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

redlittlefox · 发表于 2004-11-24 17:13:26

我编了一个小程序，可以实现，非常简单方便
代码如下：
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 · 发表于 2004-11-25 10:19:22

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

eeeeee · 发表于 2009-3-30 22:03:46

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

gouweicao78 · 发表于 2009-3-31 23:07:03

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

mjh · 发表于 2009-4-10 17:37:46

感谢LZ的无私奉献。

zjsss · 发表于 2009-4-19 23:48:47

感谢redlittlefox的奉献

CRJQ · 发表于 2009-4-26 21:24:10

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

xiaobearlinlin · 发表于 2009-5-2 17:25:42

嗯，可行

lixiaochun · 发表于 2009-5-4 13:24:42

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

hhzjxss · 发表于 2009-5-31 20:02:06

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

paladi · 发表于 2009-8-8 04:39:41

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

9937965 · 发表于 2009-8-12 09:21:03

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

grapelun · 发表于 2009-8-12 22:53:40

帮忙顶一下

账号		自动登录	找回密码
密码			立即注册

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

用VBA解决比较好