vba - 检查值是否存在于范围内而不循环

Question

我习惯了 python 语法 where to check if 7在 list1您只需输入 7 in list1它返回一个 bool 值。如何在 vba 中执行类似的操作？

我目前正在大范围循环。我想偶尔检查我循环的值是否在不同的范围内。如果我必须将更多循环嵌套到我的循环中，这可能会变得更慢。解决这个问题的最快方法是什么？

For i = 400 To 1 Step -1:
'doing other things

'here's some psuedo-code of what I want to do
If Sheets("Sheet2").Cells(i, 2).Value In Sheets("Sheet1").Range("NamedRange")
Sheets("Sheet2").Cells(i, 2).EntireRow.Delete
End If

Next i

Answer 1

使用 countif，如果它大于零，那么您知道它存在于列表中:

If Application.WorksheetFunction.CountIf(Sheets("Sheet1").Range("NamedRange"), Sheets("Sheet2").Cells(i, 2).Value) > 0 Then
    Sheets("Sheet2").Cells(i, 2).EntireRow.Delete
End If