VBA 如何統計壹列中每壹個數據出現的次數，並在另外兩列中分別顯示數據名稱和次數。 註：用VBA

使用字典實現，例如統計A列數據顯示在C、D列的代碼如下：

for?i=1?to?activesheet.usedrange.rows.count

x=trim(cells(i,1))

db(x)=db(x)+1

next?i

i=1

for?each?x?in?db.keys

cells(i,3)=x

cells(i,4)=db(x)

i=i+1

next?k