筛选重复设备编号及次数

zheng0069

求助各位高手，如附件A列是设备编号，筛选结果只显示重复的设备编号，并得出重复次数，非常感谢。

刀羊

透视表筛选掉一的数量：

不知道为什么

用vba也很简单，如图

不知道为什么

供测试

1. Sub test()
   
2.     Dim dic, Arr, Brr()
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     Arr = [a1].CurrentRegion
   
5.     For i = 2 To UBound(Arr)
   
6.         dic(Arr(i, 1)) = dic(Arr(i, 1)) + 1
   
7.     Next i
   
8.     ReDim Brr(1 To UBound(Arr), 1 To 2)
   
9.     For Each k In dic.keys
   
10.         If dic(k) > 1 Then
    
11.             x = x + 1
    
12.             Brr(x, 1) = k: Brr(x, 2) = dic(k)
    
13.         End If
    
14.     Next
    
15.     [f2:g999].ClearContents
    
16.     [f2].Resize(x, 2) = Brr
    
17.     Set dic = Nothing
    
18. End Sub
    

复制代码