为什么我的For Each循环这么慢?有没有更有效的方法?

我尝试在大数据表(20列中将近300k单元)中搜索文本内容(约30条标准)。此工作表中的单元格是长度在6到139个字母之间的字符串,而我要查找的单元格的长度是6。我已经用此代码尝试过,但是这花费了很长时间(我从来没有等过结束):

Sub DeleteAllCellsWithSpecificContent()


Dim c As Object
Dim rng1 As Range

Dim z As Object
Dim rng2 As Range

Set c = Sheets("Liste").Range("A2")
Set rng1 = Sheets("Liste").Range("A2:S40000")

Set z = Sheets("Auswertung").Range("B2")
Set rng2 = Sheets("Auswertung").Range("B2:B31")

Application.ScreenUpdating = False

For Each z In rng2
    For Each c In rng1

        If InStr(1, c, z) Then
            c.Clear 'Delete Shift:=xlUp
        End If
    Next
Next

Application.ScreenUpdating = True

End Sub
评论