在下小白，求教EXCEL多条件查询VBA语句

haojun869866

本人小白，大学学习专业不是计算机的，但是工作需要，想学习一些EXCEL的VBA，请各位大大给予大力支持。不甚感激。工作中经常要用到比如：表1中A列+B条件，查询表2中对应条件（A列+B条件），C列结果
麻烦各位大大了！

爱疯

多条件查询2.rar (17.85 KB, 下载次数: 41)

2019-3-24 09:10 上传

点击文件名下载附件




Sub test()
    Dim d, A, i

    Set d = CreateObject("scripting.dictionary")
    A = Sheets(2).Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        If Not d.exists(A(i, 2)) Then Set d(A(i, 2)) = CreateObject("scripting.dictionary")
        If Not d(A(i, 2)).exists(A(i, 1)) Then d(A(i, 2))(A(i, 1)) = A(i, 3)
    Next i

    Sheets(1).Select
    Range("c2:c65536") = ""
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        If d.exists(A(i, 2)) Then
            If d(A(i, 2)).exists(A(i, 1)) Then
                A(i, 3) = d(A(i, 2))(A(i, 1))
            End If
        End If
    Next i
    Range("a1").Resize(UBound(A), UBound(A, 2)) = A

End Sub



1）为了测试，我把表1的a3改成了3
2）如果A班有张三，B班可能也有张三，所以建议用 班级+学号 来查询

haojun869866

多谢大大，我研究一下
不懂再来请教

mengcao888

学习学习，