1
私は35,000行をフィルタリングして削除できるコードを作成しようとしています。フィルタと全体行の削除
私は以下のコードを使用しましたが、時間がかかりました(10分以上)、誰でも早くできるように助けてくれますか?
コード1:
Range("$A$1:$S$50000").AutoFilter Field:=19, Criteria1:="Delete"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)
コード2:
Dim RngToDelete As Range
Range("$A$1:$S$50000").AutoFilter Field:=19, Criteria1:="Delete"
Set RngToDelete = Selection.SpecialCells(xlCellTypeVisible)
RngToDelete.Delete
おかげで、 Amith
[Excel VBAのパフォーマンス - 100万行の可能な複製 - 値を含む行を1分未満で削除](http://stackoverflow.com/questions/30959315/excel-vba-performance-1-million- rows-delete-rows-a-value-in-less) –
すでに 'application.screenupdating = FALSE'でしたか?それは時間を節約します。 –
はい、私は使用していました - application.screenupdating = FALSE –