[已解决]统计重复的数

雄鹰2013

统计重复的数

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-27 15:26

1. Sub Macro1()
   
2. Dim arr, d, i&, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     zf = Replace(arr(i, 1), " ", "")
   
7.     d(zf) = d(zf) + 1
   
8.     arr(i, 3) = d(zf)
   
9. Next
   
10. Range("c1").Resize(UBound(arr)) = Application.Index(arr, 0, 3)
    
11. End Sub

复制代码

跳转到最佳答案楼层

雄鹰2013

B列是正确的，如何统计成B列的形式

雪舞子

到底是C列正确还是B列正确？

雪舞子

如果B列是正确的，统计成B列的形式，直接比较一下就可以了，
如果C列是正确的，可以使用 replace（单元格值，“ ”，“”），替换掉空格再比较就可以了

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     zf = Replace(arr(i, 1), " ", "")
   
7.     d(zf) = d(zf) + 1
   
8.     arr(i, 3) = d(zf)
   
9. Next
   
10. Range("c1").Resize(UBound(arr)) = Application.Index(arr, 0, 3)
    
11. End Sub

复制代码

雄鹰2013

C列，有空的和没有空的数是相同的，所以出现的次数是不一样的

baksy

先用以下公式去掉A列的空格；
=SUBSTITUTE(A2," ","")
然后用第二个公式统计数量；
=COUNTIF(D$2:D2,D2)

雪舞子

简单循环一下即可：

1. Sub 统计()
   
2.     Dim i%, j%, n%
   
3.     For i = 2 To [a65536].End(3).Row
   
4.         n = 0
   
5.         For j = 2 To i
   
6.             If Replace(Cells(i, 1).Value, " ", "") = Replace(Cells(j, 1).Value, " ", "") Then n = n + 1
   
7.         Next
   
8.         Cells(i, 3) = n
   
9.     Next
   
10. End Sub

复制代码

统计重复的数2015.1.27.rar (11.5 KB, 下载次数: 3)

2015-1-27 17:28 上传

点击文件名下载附件