次のVBAコードをより効率的に作成する

Question

指定された値を含む行を削除しようとしています。以下のコードは〜200k行のシートで動作しましたが、350k行のシートで実行しようとするとクラッシュします。それをより効率的にする方法はありますか？どうもありがとう！彼らは、アレイ内の項目と一致した場合、時間の選択とフィルタリング350K行1を参照してください：あなたの現在のコードはかなり可能な限り最も非効率的なことをやっている

Sub MultiDelete() 

    With Application 
    .ScreenUpdating = False 
    .DisplayAlerts = False 
    End With 

    Range("A1").Activate 'change to suit the column containing the names 
    Dim MultiDelete 
    MultiDelete = Array("Name1", "Name2", "Name3") 'put as many names as you like in the array 
    Dim G As Variant 
    While ActiveCell.Value <> "" 
    G = Filter(MultiDelete, ActiveCell.Value) 
    If UBound(G) <> -1 Then 
     Selection.EntireRow.Delete 
    Else 
     ActiveCell.Offset(1, 0).Activate 
    End If 
    Wend 
    With Application 
    .ScreenUpdating = True 
    .DisplayAlerts = True 
    End With 
    End Sub 

Answer 1

。

代わりに、オートフィルタを追加するか、範囲をExcel Table/ListObjectに変換します（フィルタが組み込まれているため）。マクロレコーダーを起動し、3つの用語を手動でフィルタリングし、マクロレコーダーを停止し、生成したコードを見てください。

マクロレコーダーは、どのように動くかを検討する際には、最初のコールポートである必要があります。それは常にエレガントで効率的なコードを生成するわけではありませんし、しばしばそれをきれいにする必要がありますが、この場合、あなたは氷河からワープ速度に移行します。