不重复值个数的计算

香川群子

楼上问题的附件。

xiapaogg

香川群子 发表于 2012-3-23 15:31
楼上问题的附件。

群子老师，谢谢您，那个统计的问题怎么解决呢？您再帮我看一哈吧。

香川群子

xiapaogg 发表于 2012-3-23 18:21
群子老师，谢谢您，那个统计的问题怎么解决呢？您再帮我看一哈吧。

1. Sub test()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2) '误为UBound(arr, 1)而实际应该是UBound(arr, 2)
   
6.             If arr(i, j) <> "" Then d(arr(i, j)) = d(arr(i, j)) + 1
   
7.         Next
   
8.     Next
   
9.     [k2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
   
10.     [l2].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    
11.     [k1].CurrentRegion.Sort key1:=[k2], header:=xlYes
    
12. End Sub

复制代码

香川群子

上附件。

用字典就可以了。

xiapaogg

香川群子 发表于 2012-3-23 20:03
上附件。

用字典就可以了。

老师，关于统计，我输入后，结果有不对的呢，您再看看，谢谢您！

香川群子

xiapaogg 发表于 2012-3-24 12:50
老师，关于统计，我输入后，结果有不对的呢，您再看看，谢谢您！

取数组第2维时代码写错了，误为UBound(arr, 1)而实际应该是UBound(arr, 2)

统计1.rar (9.06 KB, 下载次数: 76)

2012-3-24 15:36 上传

点击文件名下载附件

1. Sub test()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2) '此处代码写错，误为UBound(arr, 1)而实际应该是UBound(arr, 2)
   
6.             If arr(i, j) <> "" Then d(arr(i, j)) = d(arr(i, j)) + 1
   
7.         Next
   
8.     Next
   
9.     [k2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
   
10.     [l2].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    
11.     [k1].CurrentRegion.Sort key1:=[k2], header:=xlYes
    
12. End Sub

复制代码

byhyxb

工作中有时用到，学习了.........

意网琴声

你们都是些像爱因斯坦一样的疯子！{:soso_e126:}

liangdinghu

哈哈，这么多公式666

苍域

=INDEX(A$2:A$15,SMALL(IF(MATCH(A$2:A$15,A$2:A$15,0)=ROW(A$1:A$14),ROW(A$1:A$14),""),ROW(A1)))