Sub test() aaa = "江苏省南京市建邺区水西门大街34号" If InStr(aaa, "建邺") <> 0 Then MsgBox "在里面" Else MsgBox "不在里面" End If End Sub