[已解决]提示重复数据的地址的VBA

安全网

要求能用VBA提示与那一行的数据重复，比如第4行与第2行重复

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-8-15 14:56

提示重复行的地址0815--.rar (6.82 KB, 下载次数: 11)

2015-8-15 14:55 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

提示重复行的地址0815--.rar (6.82 KB, 下载次数: 11)

2015-8-15 14:55 上传

点击文件名下载附件

七彩屋

提示重复行的地址0815-2.rar (6.87 KB, 下载次数: 12)

2015-8-15 15:04 上传

点击文件名下载附件
这个效果可能更好

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 1)
   
6. For i = 1 To UBound(arr)
   
7.     p = ""
   
8.     For j = 2 To UBound(arr, 2)
   
9.         p = p & "," & arr(i, j)
   
10.     Next
    
11.     If Not d.exists(p) Then d(p) = i Else d(p) = d(p) & "," & i
    
12.     brr(i, 1) = p
    
13. Next
    
14. For i = 1 To UBound(brr)
    
15.    brr(i, 1) = d(brr(i, 1))
    
16. Next
    
17. Cells(1, UBound(arr, 2) + 2).Resize(UBound(brr)) = brr
    
18. End Sub

复制代码