|
发表于 2013-4-25 17:37
|
显示全部楼层
本楼为最佳答案
写漏了,不好意思。- Sub 查找引用()
- Dim arr1, arr2
- Dim row1 As Long, row2 As Long
- Dim t As Single
- Dim l As Long, m As Long
- t = Timer
- row1 = Sheets("1").Range("A65536").End(xlUp).Row
- row2 = Sheets("2").Range("A65536").End(xlUp).Row
- arr1 = Sheets("1").Range("a1:m" & row1)
- arr2 = Sheets("2").Range("a1:m" & row2)
- Dim Temp
- For l = 1 To UBound(arr1)
- Temp = arr1(l, 1)
- For m = 1 To UBound(arr2)
- If Temp = arr2(m, 1) Then
- arr2(m, 2) = arr1(l, 2)
- End If
- Next
- Next
- Sheets("2").Range("a1").Resize(UBound(arr2), UBound(arr2, 2)).Value = arr2
- MsgBox "查找完毕" & vbCrLf & _
- "一共用时 " & Timer - t & " 秒"
- ' For l = 1 To row1
- ' For m = 1 To row2
- ' If Sheets("1").Range("A" & l) = Sheets("2").Range("A" & m) Then
- ' Sheets("2").Range("B" & m) = Sheets("1").Range("B" & l)
- ' End If
- ' Next m
- ' Next l
- End Sub
复制代码 |
|