[已解决]提取原数据中的不重复数

wucj80

提取原数据中的不重复数，谢谢各位老师

最佳答案

月排行榜 / 总排行榜

yunqingzi

2013-1-4 13:52

弄个动画试试。

跳转到最佳答案楼层

hwc2ycy

去重复10就已经内建这个功能了。

hwc2ycy

你用高级筛选，数透也能实现的。

wucj80

还是不会，能用vba帮我整理一下吗

yunqingzi

弄个动画试试。

zhoucs00

1. Sub zhoucs00()
   
2. Dim only As New Collection, i As Integer
   
3. On Error Resume Next
   
4. For i = 2 To 23
   
5.    only.Add Cells(i, 1).Value, CStr(Cells(i, 1).Value)
   
6.    If Err = 0 Then
   
7.       j = j + 1
   
8.       Cells(i, 1).Resize(1, 12).Copy Cells(25 + j, 1)
   
9.    Else
   
10.       Err.Clear
    
11.    End If
    
12. Next i
    
13. MsgBox j
    
14. End Sub

复制代码