软件:excel
版本:2007
Sub aaa()
r = [w65536].End(xlUp).Row
For i = r To 1 Step -1
If Cells(i, 23) = 0 Then Rows(i).Delete
Next
End Sub
如果第23列有10000行，其中等于0的单元格有8000，那么运行改代码就非常费时间
求能大幅度提高速度的宏。

不用循环的话，用筛选，删除或是用进阶筛选将不为0的复制到其他地方，就可不删列range.autofilter或range.advancedfilter看是否可改善

当前的方法就是进阶筛选为0，然后SpecialCells(xlCellTypeVisible).Delete但是还是有点慢

那将不为0复制到其他工作表，不删列，改以删工作表

一会试试，现在有问题是这进阶筛选0，删除，出现了对话框"是否删除工作表整行"，如何取消这个对话框，默认"确认"解决了 Application.DisplayAlerts = False

不要先做delete，跑一圈挑出来之后一次删除。或是先clear，然后一次sort。