vba - 我正在尝试使用 IF 语句来检查单元格中是否有 20 个不同的变量

Question

我正在尝试检查单元格中是否有一个单词或一系列单词。我正在寻找大约 20 个不同的版本，如果它是其中之一，那么我什么也不做。如果它不是其中之一，那么我希望它是空白的。我已经让它能够正确地处理一个特定的项目，但是如何让它在不执行 20 个 IF 语句的情况下查找 20 个不同的项目？我可以为 IF 语句创建一个数组或其他东西吗？我也不知道该怎么做，但我可以查一下。

以下是我的一项具体声明:

 ActiveSheet.AutoFilterMode = False
lngRows = Range("A" & Rows.Count).End(xlUp).Row


For lngRow = lngRows To 2 Step -1
    If (LCase(ActiveWorkbook.Worksheets("Sheet1").Cells(lngRow, "A").Value) = "transfer" And _
        Not InStr(1, LCase(Range("B" & lngRow)), LCase("err")) <> 0) Then
        ActiveWorkbook.Worksheets("Sheet1").Cells(lngRow, "B").Value = ""

    End If

我需要这样做，但还需要 20 个单词。这个正在搜索任何单元格中是否有错误一词。

Answer 1

创建搜索词数组并循环访问该数组。为了方便起见，我使用了变体数组:

Sub Test()
    Dim arr As Variant, v As Variant

    arr = Array("err", "err2", "err3") 'all 20 in here or get from worksheet as per below
    'arr = Application.Transpose(ThisWorkbook.Worksheets("Sheet1").Range("A1:A20")) 

    For Each v In arr
        'IF statement in this loop, using the variable v rather than the string "err"
        'MsgBox v
    Next v
End Sub