軟體: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。