VBA字典遇到重复值

满大人

大哥们，如图所示，想把sheet1里日期空白的，从sheet2里匹配过来，但是sheet2里有些人有两个日期，取最上面的数据就行，但是用字典会取到最下面的，该怎么解决（原表有上万行，这里省略了）

liulang0808

用字典的时候可以从下往上遍历
另外从上往下的话，也可以使用exists方法判断是否存在的

剑指E

。                        

feilanga

Qs18

Sub test()
    Dim dic As Object, arr, brr
    t = Timer
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheet2.Range("a1", Sheet2.Cells(Rows.Count, 2).End(xlUp))
    brr = Sheet1.Range("a1:c" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row).Value
    For i = 2 To UBound(arr)
        If Not dic.exists(arr(i, 1)) Then
            dic(arr(i, 1)) = arr(i, 2)
        End If
    Next
    For i = 2 To UBound(brr)
        If Len(brr(i, 3)) < 1 Then
            brr(i, 3) = dic(brr(i, 1))
        End If
    Next
    Sheet1.Range("c1").Resize(UBound(brr), 1) = Application.Index(brr, 0, 3)
    MsgBox Format(Timer - t, "#0.00") & "秒"
End Sub

Qs18

测试一下................

Qs18

测试一下...........