InStr 函數(shù)返回 Variant (Long)，指定一字符串在另一字符串中最先出現(xiàn)的位置。InStr([start, ]string1, string2[, compare])InStr 函數(shù)的語法具有下面的參數(shù)：start 可選參數(shù)。為數(shù)值表達(dá)式，設(shè)置每次搜索的起點(diǎn)。如果省略，將從第一個(gè)字符的位置開始。如果指定了 compare 參數(shù)，則一定要有 start 參數(shù)。string1 必要參數(shù)。接受搜索的字符串表達(dá)式。string2 必要參數(shù)。被搜索的字符串表達(dá)式。Compare可選參數(shù)。指定字符串比較。如果省略 compare，Option Compare 的設(shè)置將決定比較的類型。

例如如下

Sub tttt()

a = "abvsdf"

b = "z"

c = InStr(a, b)

If c > 0 Then

MsgBox "a包含b"

Else

MsgBox "a不包含b"

End If

End Sub

測試結(jié)果

dim a as string
dim b as string
dim i as integer
dim l as integer
a="1234 23 2345 a23a" '被搜索變量
b="23" '搜索參考變量
l=len(b) 'LEN()意思是取文字變量的長度
for i=1 to len(a)
if b=mid(a,i,l) then'MID（變量，起點(diǎn)位置，長度）意思是截取
print "found!"'找到
exit for
endif
next i
當(dāng)然這個(gè)是基本，你可以通過數(shù)組循環(huán)找更多的。進(jìn)行推廣