- Sub Tset()
- Dim d As Object, arA, arB, i&, x&
- Set d = CreateObject("Scripting.Dictionary")
- arA = Sheets("数据库").Range("a1").CurrentRegion '数据库建立arA字典,将身份号作为唯一索引
- arB = Range("a1").CurrentRegion '建立arB字典,将身份号作为唯一索引
- For i = 2 To UBound(arB)
- d(arB(i, 1) & arB(i, 2)) = i '查找时的条件在A列要将1改成为1,如是B列则改为2
- Next
- For i = 2 To UBound(arA)
- If d.Exists(arA(i, 1) & arA(i, 2)) Then
- 'arB(d(arA(i, 1)), 2) = arA(i, 2)
- arB(d(arA(i, 1) & arA(i, 2)), 3) = arA(i, 3)
- arB(d(arA(i, 1) & arA(i, 2)), 4) = arA(i, 4)
- arB(d(arA(i, 1) & arA(i, 2)), 5) = arA(i, 5)
- arB(d(arA(i, 1) & arA(i, 2)), 6) = arA(i, 6)
- End If
- Next
- Range("a1").CurrentRegion = arB
- End Sub
复制代码 |