VBA字符串处理VIP免费

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") 统计一个字符串中的某个字符的出现次数,比如"asdsd" s 出现两次,应该用哪个函数? Sub ttt() Dim Q$, I%, J%, W% Q = "asdsd" I = Len(Q) For J = 1 To I If Mid(Q, J, 1) = "s" Then W = W + 1 Next MsgBox W End Sub *************************补充一下*************************************************************** 以上循环也可以用以下语句实现: Sub ttt() Msgbox Len("dSdSd") - Len(Replace("dSdSd", "S", "")) End Sub 注: Replace 是在一个字符串中,对指定的字符串进行替换为其他指定的字符串.本例中在字符串"dSdSd"中,用""替换"S",然后用原来的总长度(LEN函数求得)减去替换后的总长度,即为S 的个数. 某个字符的出现次数（自定义函数法） Function test(X, S As String) As Integer Dim I%, J% I = Len(X) For J = 1 To I If Mid(X, J, 1) = "s" Then test = test + 1 Next End Function 用这个自定义函数也可以 比如A1 的内容是：asdsd 你在a2 输入： =test(a1,"s") 或者想计算 d 有几个 =test(a1,"d") 自定义函数比宏（过程sub ***() …… end sub）灵活一点 ***************************************************************** 根据蓝色幻想版主的提示，还可以自定义函数改修为： Function test(X, S As String) As Integer test = Len(X)-len(replace(x,s,"")) End Function 返回定长字符串的工作表函数法和VBA 法 又要问一个了:取一个字符串中某个位置的定长字符串,有那个函数么?比如:"asdfg",从...