找特定字符串返回特定值

找特定字符串返回特定值

比如字符串里面包含 张三 李四  王五  就返回 “办公室”

 Sub test()
        Dim i As Long
        Application.ScreenUpdating = False  '关闭屏幕刷新
        For i = 3 To Cells(Rows.Count, "G").End(xlUp).Row
            If InStr(Cells(i, "G"), "乡") > 0 Or InStr(Cells(i, "G"), "镇") > 0 _
               Or InStr(Cells(i, "G"), "村") > 0 Then
                Cells(i, "I") = "来了"
            End If
        Next i
        Application.ScreenUpdating = True   '打开屏幕刷新
    End Sub
    
    
        Sub test1()
        Dim j As Long
        Application.ScreenUpdating = False  '关闭屏幕刷新
        For j = 3 To Cells(Rows.Count, "G").End(xlUp).Row
            If InStr(Cells(j, "G"), "乡") > 0 Or InStr(Cells(j, "G"), "镇") > 0 _
               Or InStr(Cells(j, "G"), "村") > 0 Then
                Cells(j, "J") = "来了吗"
            End If
        Next j
        Application.ScreenUpdating = True   '打开屏幕刷新
    End Sub