Excel VBA高级编程:查找特定字符串的代码

查找特定字符串的代码

这是我在QQ群（蓝色幻想读者群）里面回复——  小桥.流水(290931055)  的求助：

Sub rrr()
    Dim pos%, w$
    w = "BSQ1-3-(5，6)"
    pos = Application.WorksheetFunction.Find("SQ", w)
    MsgBox pos
End Sub

还可以

Sub rrr()
    Dim pos%, w$
    w = Sheet1.Cells(1, 1).Value    'A1的内容为：BSQ1-3-(5，6)"
    pos = Application.WorksheetFunction.Find("SQ", w)
    MsgBox pos
End Sub

 *************************补充一下***************************************************************

instr函数：指定一字符串在另一字符串中最先出现的位置

InStr（开始位置，查找的字符串,搜索的子字符串)

例：InStr(１， w，"SQ")