[已解决]删除某列中数值为0的行

gt90

从系统中导出的有很多为零的是不需要的，要几千行啊，求代码一键删除。
经dsmch  老师指点，上传附件了，这个附件中我删除了几千行了。

谢谢!

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-29 10:50

1. Sub Macro1()
   
2. [a:a].Replace 0, "=0", LookAt:=xlWhole
   
3. Set rng = [a:a].SpecialCells(xlCellTypeFormulas, 23)
   
4. If Not rng Is Nothing Then rng.EntireRow.Delete Shift:=xlUp
   
5. End Sub

复制代码

跳转到最佳答案楼层

fffox

附件错了，你的附件是一个网页文件

zyouong

如果是从软件中导出的，那是你导出设置有问题。你可以设置不包含为0的项。

grf1973

附件不可用，随便编了一个，假设A列删除0单元格后，下面单元格上移。

1. Sub aa()
   
2.     arr = Range("a1:a" & [a65536].End(3).Row)
   
3.     For i = 1 To UBound(arr)
   
4.         If arr(i, 1) <> 0 Then
   
5.             n = n + 1
   
6.             arr(n, 1) = arr(i, 1)
   
7.         End If
   
8.     Next
   
9.     Range("a1:a" & [a65536].End(3).Row).ClearContents
   
10.     Range("a1:a" & n) = arr
    
11. End Sub
    

复制代码

gt90

grf1973 发表于 2014-12-29 09:47
附件不可用，随便编了一个，假设A列删除0单元格后，下面单元格上移。

a列的0值是删除了，就是没有删除和0平行的行啊，要把为0 的行全部删除，谢谢。

qh8600

gt90 发表于 2014-12-29 10:36
a列的0值是删除了，就是没有删除和0平行的行啊，要把为0 的行全部删除，谢谢。

你可以在A列中筛选0，然后删除整行

dsmch

1. Sub Macro1()
   
2. [a:a].Replace 0, "=0", LookAt:=xlWhole
   
3. Set rng = [a:a].SpecialCells(xlCellTypeFormulas, 23)
   
4. If Not rng Is Nothing Then rng.EntireRow.Delete Shift:=xlUp
   
5. End Sub

复制代码

gt90

dsmch 发表于 2014-12-29 10:50

这个可以了，谢谢dsmch老师，追加问一句，如果我要删除不是A列的，在其它列中包含0值得对应的行要怎么改代码？

dsmch

修改中括号里的内容