Sub iTest()
Dim n, m
'Range("B1"),"a"
'Range("A1"),"dcbabcd"
'引用工作表函数，Search()
n= Application.WorksheetFunction.Search(Range("B1"),Range("A1"))
'VBA中有自己的搜索函数，instr()
m= InStr(1, Range("A1"), Range("B1"))
MsgBox n & vbCrLf & m
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024