[已解决]求助如何用VBA编一个查找重复数据的程序？

海贼乔巴

Book1.rar (39.77 KB, 下载次数: 19)

2011-9-4 22:02 上传

点击文件名下载附件
里面有说明 我上传了附近，里面有我说明，请各位高手帮忙，小弟万分感谢。{:081:}
我会记得，加最佳答案的。{:091:}

最佳答案

月排行榜 / 总排行榜

lisachen

2011-9-5 08:54

海贼乔巴 发表于 2011-9-4 23:24
版主，沵的解压文件打不开，好郁闷呀。

Book1.rar (41.86 KB, 下载次数: 63)

2011-9-5 08:54 上传

点击文件名下载附件 可以打开呀 我在上传一次

跳转到最佳答案楼层

海贼乔巴

各位大哥帮帮忙。

雪日骄阳

查询按钮可参考帮助里的find例程或引用工作表函数countif等等方式
查找重复号码可用上面的方法、字典、先排序后再一一判断等等方式

海贼乔巴

还是不太明白。

lisachen

Book1.rar (41.75 KB, 下载次数: 56)

2011-9-4 23:02 上传

点击文件名下载附件

海贼乔巴

高手，沵的解压包打不开，这是怎么回事呀。

海贼乔巴

版主，沵的解压文件打不开，好郁闷呀。

海贼乔巴

版主，求回话

爱疯

海贼乔巴 发表于 2011-9-5 00:05
版主，求回话

5楼的压缩文件包是正常的，可以解压。
这是从5楼文件里复制出的代码：

1. 
   
2. Private Sub an_Click()
   
3.     For x = 2 To [d65536].End(xlUp).Row
   
4.         If Cells(x, 4) = TextBox1 Then
   
5.             n = n + 1
   
6.         End If
   
7.     Next
   
8.     If n > 1 Then
   
9.         MsgBox "有重复"
   
10.     Else
    
11.         MsgBox "没有重复"
    
12.     End If
    
13. End Sub
    
14. Sub 查找()
    
15. End Sub
    
16. 
    
17. Private Sub CommandButton1_Click()
    
18.     Range("f8:g10000").ClearContents
    
19.     Dim arr
    
20.     Dim arr1(1 To 10000, 1 To 2)
    
21.     Dim x, y, m, n
    
22.     arr = Range("d2:d" & Range("d65536").End(xlUp).Row)
    
23.     For x = 1 To UBound(arr, 1)
    
24.         For y = 1 To UBound(arr, 1)
    
25.             If arr(x, 1) = arr(y, 1) Then
    
26.                 n = n + 1
    
27.             End If
    
28.         Next
    
29.         If n > 1 Then
    
30.             m = m + 1
    
31.             arr1(m, 1) = arr(x, 1)
    
32.             arr1(m, 2) = x + 1
    
33.         End If
    
34.         n = 0
    
35.     Next
    
36.     If arr1(1, 1) = "" Then
    
37.         MsgBox "没发现重复数据"
    
38.     Else
    
39.         Range("f8").Resize(m, 2) = arr1
    
40.     End If
    
41. End Sub

复制代码

lisachen

海贼乔巴 发表于 2011-9-4 23:24
版主，沵的解压文件打不开，好郁闷呀。

Book1.rar (41.86 KB, 下载次数: 63)

2011-9-5 08:54 上传

点击文件名下载附件 可以打开呀 我在上传一次