词频统计宏 怎么统计整列的数据

丶L1nK

计算的是 A2 单元格   我想得到的是  计算整个A列

丶L1nK

..........

cbtaja

楼主太懒了，附件表格里一条模拟数据都没有，想要达到的效果也没有任何举例说明，谁知道你要闹哪样？

丶L1nK

添加内容了

丶L1nK

cbtaja 发表于 2016-4-21 11:34
楼主太懒了，附件表格里一条模拟数据都没有，想要达到的效果也没有任何举例说明，谁知道你要闹哪样？

因为这个 宏 只 运算A2单元格的内容   我想让她能运算整个A列

lenghonghai601

1. Sub aa()
   
2. Dim regex, d, i
   
3. Dim matchs, match
   
4. Set regex = CreateObject("vbscript.regexp")
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. Range("b2:b65536").ClearContents
   
7. With regex
   
8.     .Global = True
   
9.     .Pattern = "\b[a-zA-Z]+\b"
   
10.     For i = 2 To Range("a65536").End(xlUp).Row
    
11.     Set matchs = .Execute(Range("a" & i).Value)
    
12.     For Each match In matchs
    
13.         d(match & "") = d(match & "") + 1
    
14.     Next
    
15.     Next
    
16. End With
    
17. [b2].Resize(d.Count, 1) = Application.Transpose(d.Keys)
    
18. [c2].Resize(d.Count, 1) = Application.Transpose(d.Items)
    
19. Set matchs = Nothing
    
20. Set regex = Nothing
    
21. Set d = Nothing
    
22. End Sub

复制代码

丶L1nK

lenghonghai601 发表于 2016-4-21 14:11

可以了  666    好厉害 哈哈

丶L1nK

丶L1nK 发表于 2016-4-21 14:18
可以了  666    好厉害 哈哈

Range("a" & i).Value  这里是什么原理啊

lenghonghai601

丶L1nK 发表于 2016-4-21 14:18
Range("a" & i).Value  这里是什么原理啊

就是在你原有的基础上加个循环语句，可以计算所有A列单元格。

wwin80

lenghonghai601 发表于 2016-4-21 14:11

你好，确实可以解决单个单词的词频统计，非常厉害！但是，有没有办法用VBA做任意连续的2个单词，3个单词，4个单词的词频统计呢（要考虑到标点符号和换行），而且可不可以把所有的单词都变成小写，希望赐教
我加了一个附件说明，非常感谢你的帮助