我可以使用like运算符使用数组比较多个条件吗？

Question

我可以使用Array语句使用Like来比较多个条件

示例：

LCase(Cells(lig, 2)) Like Array("object**", "**cash**", "lobby**")

Answer 1

不，你不能。您必须遍历数组并分别检查数组的每个项目。

Dim Criteria() As Variant
Criteria = Array("object**", "**cash**", "lobby**")

Dim Criterion As Variant
For Each Criterion In Criteria
    If LCase(Cells(lig, 2)) Like Criterion Then 
        '...
    End If 
Next Criterion

Answer 2

否，您将不得不遍历数组以比较多个值。

对于一维数组，请尝试以下

Dim arr As Variant
arr = Array("object*", "*cash*", "lobby*")
For i = LBound(arr) To UBound(arr)
    If LCase(Cells(lig, 2)) Like arr(i) Then
        'Do something
    End If
Next i

此外，您正在使用Cells而不指定工作簿/工作表。在这种情况下，VBA始终引用活动的wb和ws，而这可能并非您所希望的。

Answer 3

或者您可以对Or使用以下语法

(LCase(Cells(lig, 2)) Like "object**") Or (LCase(Cells(lig, 2)) Like "**cash**") Or (LCase(Cells(lig, 2)) Like "lobby**")  

依此类推