两组数据查找相同数据

dsmch

在函数版看到一网友帖子，主题大概是两组数据查找相同数据
考虑用vba处理很简单，答案做好了，恰好停电，找不到原来的帖子了，
请版主帮一下忙，也希望该网友能看到本帖，仅供参考。
查找相同数据.rar (9.29 KB, 下载次数: 273)

2010-8-26 17:25 上传

点击文件名下载附件

天堂漫步

谢谢楼主指导

hcy3218

下载学习一下。

lrh788

学习下！！！！

雪地山羊

dsmch  您好

                   在现有的功能基础上 可否实现

                 查找 两列数据（行） 行数值完全相同的  提取置于其他列
                 适用于 每列为 4位 5位 6位 7位   
  恳望能看到您的指导   谢谢

王跃峰

Sub aa() Dim rng1 As Range, rng2 As Range Dim d As Object For i = 1 To Range("a65536").End(xlUp).Row Set d = CreateObject("scripting.dictionary") Set rng = Range(Cells(i, 1), Cells(i, 11)) Set rng2 = Range(Cells(i, 13), Cells(i, 31)) For Each cel2 In rng2 If Not d.exists(cel2.Value) Then d.Add cel2.Value, 1 Else d(cel2.Value) = d(cel2.Value) + 1 Next For Each cel In rng If d.exists(cel.Value) Then d(cel.Value) = d(cel.Value) + 1 Next ReDim w(1 To d.Count) a = d.keys: b = d.items s = 0 For j = 0 To d.Count - 1 If b(j) > 1 Then s = s + 1: Cells(i, s + 32) = a(j) Next j  Set d = Nothing Next i End Sub

王跃峰

请问1 Else d(cel2.Value) = d(cel2.Value) + 1什么意思