主题：[求助]获取整列

分类1
分类2
分类3
分类4
分类5
分类6
分类7
分类8
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类6
分类6
分类6
分类6
分类6
分类6
分类6
分类6
分类6
分类5
分类5
分类5
分类5
分类2
分类2
分类2
分类2
分类2
分类2
分类1
分类1
分类1
分类1
分类1
分类1
分类1
分类1
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类4
分类1
分类2
分类3
分类4
分类5
分类6
分类7
分类8
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类5
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类7
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
分类2
......

 

 

 

 

 

以上是表A第一列的所有内容，一共有超过10万行，我想统计共有多少个分类，再统计每个分类各有多少数量

 

 

 

 

第一步是要先找出所有分类，然后再进行统计

但我第一步就出问题了，我使用如下代码，很慢很慢...

Dim t As Table = Tables("表A")
For i As Integer = 0 To t.Rows.count-1
    Dim r As Row = t.Rows(i)
    output.show(r("第一列"))
Next

 

 

 

 

请问有没有其它办法可以简单快速统计？