VBA 比對相符取代不相符保留

vba 比對相符取代不相符保留

ss6164172004 2020-11-04 02:54:51 ‧ 749 瀏覽

Sub Ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheets(2)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
d(a.Value) = a.Offset(, 1)
Next
With Sheets(1)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
a.Offset(, 3) = d(a.Value)
Next
End With
End With
End Sub

這是我搜尋到的程式碼,比對相符取代這點沒問題
但我想比對不相符的保留原本儲存格內的值,這點如何修改?
另外這是同一個活頁簿內比對,若是我想跨不同活頁簿比對又該如何修改呢?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-11-04 07:59:25

最佳解答

參考這個和那個
改寫如下
試試看

For Each a In .Range(.[A1], .[A65536].End(xlUp))
    a.Offset(, 3) = d(a.Value)
Next

改成

For Each a In .Range(.[A1], .[A65536].End(xlUp))
    If d.Exists(a.Value) Then
        a.Offset(, 3) = d(a.Value)
    Else
        a.Offset(, 3) = a.Offset(, 1)
    End If       
Next