多条件匹配..请求大神协助!

756082@qq.com

多条件匹配..请求大神协助!
查询,查询(2)表内 日期,经销商,名字(客户名称)可随便定义,和总库的日期,经销商,名字(客户名称)进行匹配,必须三个符合的时候,总库的融资ID.匹配并写入到查询.查询().对应的列,

756082@qq.com

都没人下载看看..??  求大神光顾,

excel用账户

Sub z()
Dim d As Object, arr, brr, crr
Set d = CreateObject("scripting.dictionary")
arr = Sheets("总库").[A1].CurrentRegion
For i = 2 To UBound(arr)
    s = arr(i, 1) & "@" & arr(i, 2) & "@" & arr(i, 3)
    d(s) = arr(i, 4)
Next
b = Sheets("查询 (2)").UsedRange.Rows.Count
brr = Sheets("查询 (2)").Range("C2:f" & b)
For i = 1 To UBound(brr)
    s = brr(i, 1) & "@" & brr(i, 2) & "@" & brr(i, 3)
    If d.exists(s) Then
        brr(i, 4) = d(s)
    End If
Next
Sheets("查询 (2)").Range("f2:f" & b) = Application.Index(brr, , 4)

c = Sheets("查询").UsedRange.Rows.Count
crr = Sheets("查询").Range("C2:f" & c)
For i = 1 To UBound(crr)
    s = crr(i, 1) & "@" & crr(i, 2) & "@" & crr(i, 3)
    If d.exists(s) Then
        crr(i, 4) = d(s)
    End If
Next
Sheets("查询").Range("f2:f" & c) = Application.Index(crr, , 4)
End Sub

我行我速2008

3 楼的解答没问题吧？