作者：乔山办公网日期：
返回目录：excel表格制作
Like *cells(1， 4)*
改成
Like "*" & Cells(1, 4) & "*"
VBA判断单元格百是否包含某字符使用InStr函数，与工作表的度FIND函数类似。问
InStr函数的帮助信息答如下：
程序中判断是否包含内，可以这样容写VBA代码：
If InStr("111a222", "a")=0 Then MsgBox "不包含" Else MsgBox "包含"
执行示例：
在B1单元格输入以下公式
=IF(OR(A1={"*小提琴*","*钢琴*","*吉他*"}),"乐器","不是乐器")
直接上代码吧，我用知SUB过程写的，如果你道需要改为函数的话可以自己回改一下。答
Sub 判断是否包含()
Dim source, str As String
Dim result As Boolean
source = Range("A1")
str = Range("A2")
result = True
For i = 1 To Len(str)
If InStr(1, source, Mid(str, i, 1), vbTextCompare) = 0 Then
result = False
Exit For
End If
Next i
If Not result Then MsgBox ("not included")
End Sub