急急急 Split函数按照文本拆分文本的时候不区分大小写

duquancai

Jared-AD 发表于 2018-6-23 13:37
谢谢，学习了新的字典用法

1. Sub 正则split()
   
2.     Dim arr, r&, dic As Object, js As Object
   
3.     Set dic = CreateObject("Scripting.Dictionary")
   
4.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
5.     js.Language = "JavaScript": js.AddObject "d", dic
   
6.     js.AddCode "var r=/''/;r.compile(/\x20+/);d.CompareMode = 1;"
   
7.     r = Cells(Rows.Count, 1).End(3).Row
   
8.     arr = Range("a2:a" & r)
   
9.     For i = 1 To r - 1
   
10.         js.eval ("a='" & arr(i, 1) & "'.split(r);for(j=0;j<a.length;j++)!d.exists(a[j])?d(a[j])=1:d(a[j])=d(a[j])+1;")
    
11.     Next
    
12.     Range("d2").Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.items))
    
13. End Sub

复制代码