字典计算重复数应该怎么写vba

今日在网上下了“蓝桥玄霜”总结的“常见字典用法集锦及代码详解”学习，其中“实例1  普通常见的求不重复值问题”的代码如下，并不能输出正确结果，怎么修改才可用？
Sub cfz()
Dim i&, Myr&, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1:g" & Myr)
For i = 2 To UBound(Arr)
    d(Arr(i, 3)) = d(Arr(i, 3)) + 1'关键是这句，到底怎么理解？？？
Next
k = d.keys
t = d.items
Sheet2.Activate
with sheet2’这句是我加的，明显错了嘛____________
[a2].Resize(d.Count, 1) = Application.Transpose(k)
[b2].Resize(d.Count, 1) = Application.Transpose(t)
[a1].Resize(1, 2) = Array("姓名", "重复个数")
end with'________________________________
Set d = Nothing
End Sub

用以上方法，写了段统计word词频统计的（没排序），为什么全部返回“1”？


Sub word词数统计()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
Dim i
Dim d, p
For Each i In ActiveDocument.Words
dic(i) = dic(i) + 1
Next
p = dic.keys
d = dic.items
MsgBox Join(d, " ")
MsgBox Join(p, " ")
End Sub