excel vba问题

想用excel vba 表示某单元格内容中含有某字符，怎样表示？

 

比如      如果 A1的内容中含有字母“X”，则在B2中输入“好”，怎样写代码

知道的朋友请分享下   谢谢！

不用VBA吧。在B1输入 =if(iserror(find("X",A1)),"","好")
就可以了。

非要代码的话，右键点工作表的名字，查看代码，粘贴如下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Range("A1"), "X") > 0 Then Target.Range("A1").Offset(0, 1) = "好"
End Sub

回到Excel，试试吧。