求大神指点，用vba怎样计算某列中非重复项总数。

Question

如题，就是想用vba实现excel中去除重复项并计算总行数的功能。

如图，计算A列项目中，所包含信息的总数和。 （应为4个）

求大神指点怎样写代码啊，谢谢！

Answer 1

Sub 统计不重复数()
Dim D As Object, i%
Set D = CreateObject("scripting.dictionary")
For i = 1 To [A65536].End(3).Row
D(Cells(i, 1).Text) = 1
Next
MsgBox "A列非重复总数为：" & D.Count
End Sub本回答被网友采纳