如何使用VBA計算單個單元格內的文字在某列單元格中出現的次數

dim dic

set dic=createobject("scripting.dictionary")

arr=sheet1.range("a1:a" & [a65536].end(xlup).row) ' 假如是sheet1的a列有數據

for i%=2 to ubound(arr)

ss=arr(i,1)

dic(ss)=dic(ss)+1

next

k = dic.keys

t = dic.items

[b1].Resize(d.Count, 1) = Application.Transpose(k) ' b列存放不重復的a列的值

[c1].Resize(d.Count, 1) = Application.Transpose(t) ' c列存放每個值對應的重復出現的個數