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

Jared-AD

各位，VBA大神，我有个问题想请教你们，我做了一个统计关键词词频的VBA模板，用的时候发现拆分的时候会区分大小写，我按照自己的想法修改了发现还是会区分大小写，比如CD和cd会当做两个词，只好请教各位大神帮忙修改一下，谢谢。brr = Split(r(arr(x, 1)), " ", , Compare:=vbTextCompare)这句怎么修改？具体看附件

huang1314wei

jiangxiaoyun

可以在代码顶端使用 Option Compare Text 语句

Jared-AD

huang1314wei 发表于 2018-6-23 11:14

谢谢，你的帮助，已解决。我还是想弄明白为什么split这个函数后面的compare为什么不能不区分大小写，是我代码写错了吗？

Jared-AD

jiangxiaoyun 发表于 2018-6-23 11:35
可以在代码顶端使用 Option Compare Text 语句

谢谢，这个我试过了，拆分的时候还是区分大小写

jiangxiaoyun

Jared-AD 发表于 2018-6-23 11:36
谢谢，你的帮助，已解决。我还是想弄明白为什么split这个函数后面的compare为什么不能不区分大小写，是我 ...

duquancai

Sub 拆分计数()
    Dim arr, r&, d As Object, reg As Object
    Set d = CreateObject("Scripting.Dictionary")
    d.CompareMode = 1
    r = Cells(Rows.Count, 1).End(3).Row
    arr = Range("a2:a" & r)
    For i = 1 To r - 1
        For Each t In Split(arr(i, 1), " ")
            d(t) = d(t) + 1
        Next
    Next
    Range("d2").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

huang1314wei

Jared-AD 发表于 2018-6-23 11:36
谢谢，你的帮助，已解决。我还是想弄明白为什么split这个函数后面的compare为什么不能不区分大小写，是我 ...

split这个函数的compare参数貌似没有哪个值是不区分大小写吧

Jared-AD

huang1314wei 发表于 2018-6-23 12:49
split这个函数的compare参数貌似没有哪个值是不区分大小写吧

好的，谢谢你

Jared-AD

duquancai 发表于 2018-6-23 11:57
Sub 拆分计数()
    Dim arr, r&, d As Object, reg As Object
    Set d = CreateObject("Scripting.Dic ...

谢谢，学习了新的字典用法