Question

用VBA数组字典实现多条件查找

用VBA数组字典实现多条件查找

Answer 1

Sub s()
    arr = [a1].CurrentRegion
    brr = [a11].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(brr)
        d(brr(i, 1) & brr(i, 2)) = i
    Next
    For i = 2 To UBound(arr)
        t = arr(i, 1) & arr(i, 2)
        If d.Exists(t) Then
            brr(d(t), 3) = brr(d(t), 3) + arr(i, 3)
            brr(d(t), 4) = brr(d(t), 4) + arr(i, 4)
        End If
    Next
    [a11].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub