For i = 1 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + 1
d(arr(i, 1)) = 1
Next
'已經計數了
k=d.keys 'k是關鍵字的壹維數組
t=d.items 't是關鍵字對應的計數