查找包含多个关键字

[荭谚]

vb中，查找A列每个单元格是否包含""张三，李四"",，在b列对应的单元格显示包含张三，包含李四，不包含

[本命雪狮]

instr，like都可以

[荭谚]

引用 1 楼 本命雪狮的回复:

instr，like都可以

那你给答案吧，等你

[本命雪狮]

引用 2 楼 weixin_46577393 的回复:

[quote=引用 1 楼 本命雪狮的回复:]instr，like都可以

那你给答案吧，等你[/quote]老板您慢慢等

[milaoshu1020]

写好了,代码如下:

Option Explicit

Function Include(ByVal objRange As Range) As String
    Dim strContent As String
    strContent = objRange.Value
    
    If InStr(strContent, "张三") Then
        Include = "包含张三"
    ElseIf InStr(strContent, "李四") Then
        Include = "包含李四"
    Else
        Include = "不包含"
    End If
End Function

下载地址: 链接：https://pan.baidu.com/s/1FJNK6enL6_JYNM2n9O2xQg 提取码：4cmx 运行示例: