Sub 判断信息() If Range("B2").Value Like "*刚*" Then MsgBox "B2中的数据包含【刚】字。" Else MsgBox "B2中的数据不包含【刚】字。" End If End Sub