统计一例中，不同数据的个数。求高手支招

swl4561255

摇摇晃晃的小孩 发表于 2012-6-15 11:12
附件添加好了，请高手帮我看看～

2012.5 统计表.zip (309.8 KB, 下载次数: 18)

2012-6-15 11:28 上传

点击文件名下载附件

参见附件：

1. Private Sub CommandButton1_Click()
   
2.     arr = Range("A1").CurrentRegion
   
3.     For i = 2 To UBound(arr, 2)
   
4.         Set d = CreateObject("scripting.dictionary")
   
5.         For j = 3 To UBound(arr)
   
6.             If arr(j, i) <> "" Then
   
7.                 d(arr(j, i)) = ""
   
8.             End If
   
9.         Next
   
10.         Cells(2, i) = d.Count
    
11.         Set d = Nothing
    
12.     Next
    
13. End Sub

复制代码

点按纽就可以了。

安全为主

摇摇晃晃的小孩 发表于 2012-6-15 11:13
这个贴子我看了，里面提到的公式我用了，不能解决问题。我菜鸟的很。也不知道问题在哪。。。

原理一样，只不过你的数据范围是动态的而已


2012.5 统计表.rar (42.12 KB, 下载次数: 17)

2012-6-15 11:52 上传

点击文件名下载附件

快樂學習

1. =SUM(N(MATCH(OFFSET(B3,,,COUNTA(B3:B23)),OFFSET(B3,,,COUNTA(B3:B23)),)=ROW(INDIRECT("1:"&COUNTA(B3:B23)))))

复制代码

2012.5 统计表.zip (350.02 KB, 下载次数: 8)

2012-6-15 11:55 上传

点击文件名下载附件

摇摇晃晃的小孩

swl4561255 发表于 2012-6-15 11:28
参见附件：点按纽就可以了。

是在普通视图模式点按扭吗？我添加了一点新的数据进去计算，点了按钮没有反映呢

摇摇晃晃的小孩

快樂學習 发表于 2012-6-15 11:55

谢谢！！可以用了！！非常感谢你。。。这些代码我都看不懂。。。。55555

摇摇晃晃的小孩

快樂學習 发表于 2012-6-15 11:55

有个问题请教，因为数据太多，我把个别超过长度那一例的命令给改了，结果就报错。什么原因。您帮我看看：
=SUM(N(MATCH(OFFSET(J3,,,COUNTA(J3:J23)),OFFSET(J3,,,COUNTA(J3:J23)),)=ROW(INDIRECT("1:"&COUNTA(J3:J23)))))
数据达到40行。我就改成了：
=SUM(N(MATCH(OFFSET(J3,,,COUNTA(J3:J40)),OFFSET(J3,,,COUNTA(J3:J40)),)=ROW(INDIRECT("1:"&COUNTA(J3:J40)))))
可是就报错了。麻烦您给看看。

快樂學習

摇摇晃晃的小孩 发表于 2012-6-15 13:36
有个问题请教，因为数据太多，我把个别超过长度那一例的命令给改了，结果就报错。什么原因。您帮我看看： ...

公式应该没什么问题，可能空白单元格有不可见字符或者空格，你删除下看看，你看下12楼老师的附件，用那个公式更简洁！

shuyee

这个是有经典统计公式的，可惜你数据不规范，导致公式加长了
=SUMPRODUCT(1/COUNTIF(B3:B200,OFFSET(B3,,,SUMPRODUCT(--(LEN(TRIM(B3:B200))>0)))))
1/countif()，结果是重复的，以倒数形式表达，比如有4个重复，countif的结果，是每行的值都是4，用倒数，变成1/4，再经过求和，就变成1了，重而避免了重复计数。
用sumproduct，避免使用数组公式。由于你原表列内容长度不固定，因此使用offset获取动态区域，同时由于你数据不规范，只好使用其它方便求动态区域的长度。

摇摇晃晃的小孩

shuyee 发表于 2012-6-15 18:31
这个是有经典统计公式的，可惜你数据不规范，导致公式加长了
=SUMPRODUCT(1/COUNTIF(B3:B200,OFFSET(B3,,, ...

太专业了。。。听看懂一半～～哭···

摇摇晃晃的小孩

快樂學習 发表于 2012-6-15 16:41
公式应该没什么问题，可能空白单元格有不可见字符或者空格，你删除下看看，你看下12楼老师的附件，用那个 ...

谢谢，我再看看。。。12楼老师的那个图片好复杂啊～公式在哪，我都看不懂。。。