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