如何使用宏在工作簿中查找单词出现？

Question

我正在尝试在Excel中编写一个宏来列出给定单元格范围内的唯一单词及其出现次数。

有没有最好的方法呢？

Answer 1

1. 通过mehow从评论中复制：将范围值粘贴到数组中 这是一个好的开始
2. 创建Scripting.Dictionary对象（需要参考 Microsoft Scripting Runtime ）

3. 一旦你有了字典 - 循环遍历数组并且：

   • 检查条目是否存在（Dictionary.Exists）
   • 如果没有 - 添加一个键/值对（Dictionary.Add），其中key是你的单词，值是1
   • 如果确实如此 - 增加值（Dictionary(key) = Dictionary(key) + 1），其中key是你的话。

4. 之后你会知道你有多少独特的单词（Dictionary.Count），你可以检查每个单词的出现。