無法精確比對 - Excel程式區 - 麻辣家族討論版版

[發問] 無法精確比對

1^# 跳轉到 »

發表於 2011-9-14 00:05 | 顯示全部帖子

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[B5], .[B56636].End(xlUp))
d(a & "") = Array(a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
Next
End With
With Sheet2
For Each a In .Range(.[D12], .[D56636].End(xlUp))
If d.exists(a & "") Then a.Offset(, 4).Resize(, 4) = d(a & "")
Next
End With
End Sub

複製代碼

靜思自在 : 願要大、志要堅、氣要柔、心要細。