跨工作表统计不重复数据个数

天堂山人

请教各位高手，现需要跨工作表统计

莪岢苡佷恏i_wil

高版本打不开

xiangbaoan

1、数组公式：
=SUM(1/COUNTIF(名册!A2:A8,名册!A2:A8))
ctrl+shift+enter三键
2、VBA法：

1. Sub t()
   
2. Dim ar, d As Object, r&, k&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. ar = Sheets("名册").[a1].CurrentRegion
   
5. For r = 2 To UBound(ar)
   
6.     If Not d.exists(ar(r, 1)) Then k = k + 1: d(ar(r, 1)) = ""
   
7. Next
   
8. Sheets("统计表").[b1] = k
   
9. Set d = Nothing
   
10. End Sub
    

复制代码

liulang0808

可以使用高级筛选去重
vba可以考虑字典了

天堂山人

xiangbaoan 发表于 2018-8-1 12:22
1、数组公式：
=SUM(1/COUNTIF(名册!A2:A8,名册!A2:A8))
ctrl+shift+enter三键

用数组的话，由于不知道名册究竟有多少行，一旦出现空格，统计就出错！

xiangbaoan

天堂山人 发表于 2018-8-2 15:47
用数组的话，由于不知道名册究竟有多少行，一旦出现空格，统计就出错！

哦，明白，算了吧，那就不用吧。

天堂山人

xiangbaoan 发表于 2018-8-1 12:22
1、数组公式：
=SUM(1/COUNTIF(名册!A2:A8,名册!A2:A8))
ctrl+shift+enter三键

麻烦高手帮忙看一下，我将VBA用于我的表中，统计数据不对！麻烦指点一下，对于vba我是一窍不通！

不知道为什么

天堂山人 发表于 2018-8-2 16:15
麻烦高手帮忙看一下，我将VBA用于我的表中，统计数据不对！麻烦指点一下，对于vba我是一窍不通！

如图

不知道为什么

天堂山人 发表于 2018-8-2 16:15
麻烦高手帮忙看一下，我将VBA用于我的表中，统计数据不对！麻烦指点一下，对于vba我是一窍不通！

这应该是字典最基础的用法，供参考

李桥贵

不知道为什么 发表于 2018-8-2 16:48
这应该是字典最基础的用法，供参考

请问老师
If Len(Arr(i,1) Then
是不是有错