用字典法提取最后一次的记录，代码无反应

山海风云轩

求助大佬，在网上看到一个用字典法提取最后一次的记录的代码，模拟发现无反应，请帮忙看看，详情见附件

joy.008@163.com

For i = 2 To maxRow '不进行exists判断，那么如果某个key反复出现，则对应的value则会被后来值进行覆盖
    myDic(sht.Cells(i, 3).Value) = sht.Cells(i, 1).Value '写入字典，如果有，则覆盖原来值

joy.008@163.com

ykcbf1100

参与一下。

山海风云轩

感谢各位大佬的帮助

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, br, i&, p&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion
    For i = 2 To UBound(ar): dic(ar(i, 3)) = i: Next
    br = [E1].CurrentRegion
    For i = 2 To UBound(br)
         If dic.exists(br(i, 1)) Then
             p = dic(br(i, 1))
             br(i, 2) = ar(p, 1)
             br(i, 3) = ar(p, 2)
         End If
    Next i
   
    [E1].CurrentRegion = br
    Set dic = Nothing
    Beep
End Sub