怎么用vba提取某单元格字符串中指定字符的位置？谢谢先！

duquancai

cscnnn 发表于 2018-9-23 13:29
你好，再加个问题麻烦你下，如果单元格中有多个要查询的字符的，有没办法一个个统计各各字符所在的位置？ ...

1. Sub main()
   
2.     MsgBox InStrEx("ABCDEFDABCDEFG", "D")
   
3. End Sub
   
4. Function InStrEx(ByVal s$, ByVal k$) As String
   
5.     Dim D As Object, js As Object
   
6.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
   
7.     js.execScript "a=[];'" & s & "'.replace(eval('/'+'" & k & "'+'/g'),function(s,b){a.push(b+1);});"
   
8.     InStrEx = js.eval("a.length?a:'-1';")
   
9. End Function

复制代码

Kaohsing

1. Sub kao_js_find_substr()
   
2.     Set x = CreateObject("msscriptcontrol.scriptcontrol")
   
3.     x.Language = "javascript"
   
4.     strarr = Array("ABCDEFDABCDEFG", "D", "ABCDEFDABCDEFG", "A", "ABCDEFDABCDEFG", "C", "ABCDEFDABCDEFG", "你")
   
5.     x.addcode "function s(str,subStr){var p=[];var pos = str.indexOf(subStr); while(pos>-1){p.push(pos+1);pos = str.indexOf(subStr,pos+1);} return  p.length == 0? '不存在!':p;};"
   
6.     For i = 0 To UBound(strarr) Step 2
   
7.         MsgBox x.Run("s", strarr(i), strarr(i + 1))
   
8.     Next
   
9. End Sub
   

复制代码