VBA多查找值匹配问题：代码仅识别第一个匹配项如何修复？

你的代码只对第一个模式生效，核心原因有两个：

1. 错误使用了Range.Find方法：你要判断的是当前单元格的值是否匹配某个通配符模式，但rng.Find()是用来在指定区域内查找内容的，而不是检查单元格自身的值是否符合规则。而且直接把数组传给Find方法，它只会读取数组的第一个元素（也就是sFind(0)），这就是为什么只有"a*"看似生效。
2. 没有遍历所有查找模式：你定义了包含10个模式的数组，但代码里根本没循环检查每个模式，自然不会匹配后面的"b*"到"j*"。

修复方案1：遍历数组+Like匹配（通用方案，适合任意通配符模式） #

下面是修正后的代码，逻辑更清晰，也适配新版Excel：

Sub MatchMultiplePatterns()
    Dim rng As Range
    Dim sFind(9) As String ' 索引0-9，对应10个模式，无需定义为10长度
    Dim i As Integer
    
    ' 初始化要匹配的通配符模式
    sFind(0) = "a*"
    sFind(1) = "b*"
    sFind(2) = "c*"
    sFind(3) = "d*"
    sFind(4) = "e*"
    sFind(5) = "f*"
    sFind(6) = "g*"
    sFind(7) = "h*"
    sFind(8) = "i*"
    sFind(9) = "j*"
    
    ' 遍历J列从J2开始的所有非空单元格（适配新版Excel的大行数）
    For Each rng In Range("J2", Range("J" & Rows.Count).End(xlUp))
        ' 逐个检查数组里的每个匹配模式
        For i = LBound(sFind) To UBound(sFind)
            ' 用Like运算符判断单元格值是否符合当前通配符规则
            If rng.Value Like sFind(i) Then
                rng.Offset(0, 1).Value = "1"
                Exit For ' 找到匹配项就跳出内层循环，避免重复写入
            End If
        Next i
    Next rng
End Sub

修复方案2：简化写法（针对你的特定模式） #

因为你的所有模式都是"x*"（即单元格值以x开头），可以直接判断首字符，代码更简洁高效：

Sub MatchMultiplePatterns_Short()
    Dim rng As Range
    
    For Each rng In Range("J2", Range("J" & Rows.Count).End(xlUp))
        ' 判断单元格值的第一个字符是否在a-j范围内
        Select Case Left(rng.Value, 1)
            Case "a", "b", "c", "d", "e", "f", "g", "h", "i", "j"
                rng.Offset(0, 1).Value = "1"
        End Select
    Next rng
End Sub

关键优化点说明： #

• 把Range("J65536")改成Range("J" & Rows.Count)：适配Excel 2007及以后版本（行数上限远超过65536）
• 用Like运算符替代Find：这才是判断单元格值是否匹配通配符模式的正确方式
• 内层循环遍历所有模式：确保每个单元格都会检查所有你定义的规则
• Exit For：找到匹配后立即停止当前单元格的检查，提升运行效率

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