如何编写VBA代码判断单元格是否包含指定多个关键词

你的代码有两个核心问题：

1. VBA里判断单元格是否包含指定文本，不能用=搭配通配符，必须用Like运算符；
2. Or的语法错误，每个条件都得完整写出判断逻辑，不能只写后半段字符串。

基础写法（适合关键词少的场景） #

If Range("A1").Value Like "*Tree*" Or Range("A1").Value Like "*"*Plant*" Or Range("A1").Value Like "*Grass*" Then
    ' 包含任意关键词时执行的操作，比如：
    MsgBox "单元格包含指定关键词"
Else
    ' 不包含时执行的操作，比如：
    MsgBox "单元格未包含指定关键词"
End If

进阶写法（适合关键词多的场景，扩展性强） #

如果后续要加更多关键词，用数组循环更高效：

Dim keywords As Variant
Dim keyword As Variant
Dim isMatch As Boolean

' 把所有关键词放进数组
keywords = Array("Tree", "Plant", "Grass")
isMatch = False

' 遍历数组检查匹配
For Each keyword In keywords
    If Range("A1").Value Like "*" & keyword & "*" Then
        isMatch = True
        Exit For ' 找到匹配就停止循环，节省资源
    End If
Next keyword

' 根据匹配结果执行操作
If isMatch Then
    MsgBox "单元格包含指定关键词"
Else
    MsgBox "单元格未包含指定关键词"
End If

忽略大小写的写法 #

如果需要不区分大小写匹配（比如识别"tree"或"Tree"），可以统一转换为大写/小写后再判断：

If UCase(Range("A1").Value) Like "*TREE*" Or UCase(Range("A1").Value) Like "*PLANT*" Or UCase(Range("A1").Value) Like "*GRASS*" Then
    MsgBox "包含指定关键词（忽略大小写）"
Else
    MsgBox "未包含指定关键词"
End If

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