|
发表于 2010-12-26 21:54
|
显示全部楼层
本楼为最佳答案
- Sub aa()
- Dim arr3()
- row1 = Sheets("sheet1").Range("a65536").End(xlUp).Row
- row2 = Sheets("sheet1").Range("d65536").End(xlUp).Row
- arr1 = Sheets("sheet1").Range("a1:b" & row1)
- arr2 = Sheets("sheet1").Range("d1:d" & row2)
- ReDim arr3(1 To UBound(arr2), 1 To 1)
- For i = 1 To UBound(arr2)
- For j = UBound(arr1) To 1 Step -1
- If arr2(i, 1) = arr1(j, 1) Then
- arr3(i, 1) = arr1(j, 2)
- Exit For
- End If
- Next j
- Next i
- Sheets("sheet1").Range("e1:e65536").ClearContents
- Sheets("sheet1").Range("e1").Resize(UBound(arr3), 1) = arr3
- End Sub
复制代码
|
|