VBA技术需求：跨工作表关键词匹配并批量标记单元格

问题原因 #

你的solution2代码无法正常运行的核心原因是缺少通配符*：在使用Like运算符进行包含匹配时，需要用*包裹关键词（就像solution1中*word1*的写法），否则Like会执行精确匹配而非包含匹配。

修正后的代码 #

Sub solution2()
    Dim i As Long, c As Long

    ' 遍历Worksheet1的O3:O4500区域
    For i = 3 To 4500
        ' 清空对应U列单元格（可选，避免旧值残留）
        Worksheet1.Range("U" & i).Value = ""
        
        ' 遍历Worksheet2的B4:B15关键词区域
        For c = 4 To 15
            ' 给关键词前后添加通配符*，实现包含匹配
            If LCase$(Worksheet1.Range("O" & i).Value) Like "*" & LCase$(Worksheet2.Range("B" & c).Value) & "*" Then
                Worksheet1.Range("U" & i).Value = "x"
                ' 找到匹配后退出内层循环，提升效率
                Exit For
            End If
        Next c
    Next i
End Sub

关键改进点 #

• 在关键词前后添加*通配符，确保Like执行包含匹配而非精确匹配
• 添加Exit For，找到第一个匹配的关键词后立即停止当前行的关键词检查，提升代码运行效率
• 可选：先清空U列单元格，避免之前的标记残留

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