VBA多文本匹配宏开发求助：批量查找多列特定字符串并标记

没问题，我来帮你把这个宏优化一下，既能一次性处理你要的三种匹配模式，还能支持多列查找，用统一的逻辑搞定～

先看你原来的代码，只针对H列和单一模式做了匹配，现在我们把它改成更灵活的版本：

Sub SearchMultiplePatterns()
    ' 把需要查找的三种模式存进数组，后续要加新模式直接在这里加就行
    Dim searchPatterns As Variant
    searchPatterns = Array("<em>[ang]", "</em>[fre]", "_[ger]")
    
    ' 获取数据的最后一行（这里以H列的最后一行作基准，要是其他列数据更多，可改用下面注释的方式）
    Dim lastRow As Long
    lastRow = ActiveSheet.Range("H" & Rows.Count).End(xlUp).Row
    ' lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row ' 取所有列的最大行
    
    ' 定义要查找的多列范围，示例是H到J列，你可以根据需求修改列区间，比如改成"H1:L" & lastRow
    Dim searchRange As Range
    Set searchRange = ActiveSheet.Range("H1:J" & lastRow)
    
    Dim cel As Range
    Dim pattern As Variant
    
    ' 遍历每个单元格
    For Each cel In searchRange
        ' 遍历每个匹配模式，检查当前单元格是否包含该模式
        For Each pattern In searchPatterns
            If cel Like "*" & pattern & "*" Then
                ' 匹配成功，把对应的模式写入偏移4列的位置
                cel.Offset(0, 4).Value = pattern
                Exit For ' 找到一个匹配就跳出模式循环，避免重复写入（如果允许一个单元格匹配多个模式，可删掉这行）
            End If
        Next pattern
    Next cel
End Sub

代码说明： #

• 模式数组：用searchPatterns把三种模式统一管理，以后要加新的匹配规则，直接在数组里追加字符串就行，不用改循环逻辑
• 多列支持：searchRange定义了要查找的列范围，比如你要处理H、I、K三列，就改成Range("H1:H" & lastRow & ",I1:I" & lastRow & ",K1:K" & lastRow)，连续列的话直接写"H1:L" & lastRow更方便
• 匹配逻辑：用嵌套循环实现单一逻辑，外层遍历单元格，内层遍历模式，只要单元格内容包含对应模式，就把模式写入偏移4列的位置
• 最后一行优化：如果你的数据里其他列比H列行数多，可以用注释里的UsedRange方式获取最大行，避免漏处理数据

如果需要精确匹配（单元格内容完全等于模式，而不是包含），只要把cel Like "*" & pattern & "*"改成cel.Value = pattern就行。

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