如何在VBA中用数组实现Excel字符串多条件Like判断？

完全懂你的痛点——一堆Like条件堆在If里不仅看着乱，后续维护也麻烦。其实用数组+循环就能轻松搞定，而且扩展性超强，未来加条件只需要往数组里加元素就行。

核心实现思路 #

遍历条件数组中的每一个匹配模式，只要字符串和其中任意一个模式匹配，就返回True；如果遍历完所有条件都没匹配上，就返回False。

自定义VBA函数代码 #

Function IsCodeMatchingAny(ByVal code As String, criteriaArray As Variant) As Boolean
    ' 处理空值情况：如果code为空或条件数组为空，直接返回False
    If code = "" Or IsEmpty(criteriaArray) Then
        IsCodeMatchingAny = False
        Exit Function
    End If
    
    Dim criteria As Variant
    ' 遍历条件数组中的每个匹配模式
    For Each criteria In criteriaArray
        ' 检查当前code是否匹配该模式
        If code Like criteria Then
            IsCodeMatchingAny = True
            Exit Function ' 找到匹配就直接退出，不用继续遍历
        End If
    Next criteria
    
    ' 所有条件都不匹配时返回False
    IsCodeMatchingAny = False
End Function

用法示例 #

比如你原来的条件数组，就可以这样调用：

Sub TestMatch()
    Dim code As String
    Dim Criteria As Variant
    code = "XYZABB123" ' 测试用的字符串
    Criteria = Array("*ABB*", "*ABC*", "*ABE*", "这里可以继续加更多条件...")
    
    ' 调用自定义函数检查匹配
    If IsCodeMatchingAny(code, Criteria) Then
        MsgBox "字符串匹配了其中一个条件！"
    Else
        MsgBox "没有匹配到任何条件。"
    End If
End Sub

额外优化建议 #

• 如果你的条件是固定的，也可以把数组定义在函数内部，这样调用的时候只传code参数就行；
• 要是需要区分大小写匹配，可以在模块顶部加上Option Compare Binary（默认是不区分大小写的Option Compare Text）。

这样不管未来条件增加到20个还是50个，只要往数组里加元素就好，完全不用改判断逻辑，是不是清爽多了？

内容的提问来源于stack exchange，提问作者Richard