[已解决]符合两个条件的VBA返回值问题

cb_clx

各们路过的老师，如附件，要求当复合两个条件时，则返对应的值。
请路过老师帮忙解答，谢谢！

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-9-10 18:14

仅供参考。中秋快乐！！
Sub test()
    Dim arr, brr, i%, j%, str$, istr$
    Dim dic As Object: Set dic = CreateObject("scripting.dictionary")
    arr = Sheet1.[a1].CurrentRegion
    brr = Sheet2.[a1].CurrentRegion
    For i = 2 To UBound(brr)
        str = brr(i, 2) & brr(i, 3)
        dic(str) = brr(i, 4)
    Next
    For j = 2 To UBound(arr)
        istr = arr(j, 1) & arr(j, 2)
        If dic.exists(istr) Then
            arr(j, 3) = dic(istr)
        End If
    Next
    Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

跳转到最佳答案楼层

哥儿-

仅供参考。中秋快乐！！
Sub test()
    Dim arr, brr, i%, j%, str$, istr$
    Dim dic As Object: Set dic = CreateObject("scripting.dictionary")
    arr = Sheet1.[a1].CurrentRegion
    brr = Sheet2.[a1].CurrentRegion
    For i = 2 To UBound(brr)
        str = brr(i, 2) & brr(i, 3)
        dic(str) = brr(i, 4)
    Next
    For j = 2 To UBound(arr)
        istr = arr(j, 1) & arr(j, 2)
        If dic.exists(istr) Then
            arr(j, 3) = dic(istr)
        End If
    Next
    Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

cb_clx

哥儿- 发表于 2022-9-10 18:14
仅供参考。中秋快乐！！
Sub test()
    Dim arr, brr, i%, j%, str$, istr$

谢谢老师解答，中秋快乐 ！用字典的方式我还难以理解，可以用Find 返回值的方式做一个吗？

哥儿-

cb_clx 发表于 2022-9-10 18:23
谢谢老师解答，中秋快乐 ！用字典的方式我还难以理解，可以用Find 返回值的方式做一个吗？

find没有思路，我个人觉得不好写，帮不了你……如果你不懂字典的话，可以只用数组的方式来做。或者等别人帮你。

哥儿-

试着用find去写了一下，说实话第一次用find做多条件查找，你测试一下。
Sub test1()
    Dim arr, i%, rng As Range, sht As Worksheet
    arr = Sheet1.[a1].CurrentRegion
    Set sht = Sheet2
    For i = 2 To UBound(arr)
        Set rng = sht.Range("B:B").Find(arr(i, 1))
        If rng.Offset(0, 1).Value = arr(i, 2) Then
            arr(i, 3) = rng.Offset(0, 2).Value
        Else
            Do
            Set rng = sht.Range("b:b").FindNext(rng)
            
            Loop Until rng.Offset(0, 1).Value = arr(i, 2)
            arr(i, 3) = rng.Offset(0, 2).Value
        End If
    Next
    Sheet1.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

cb_clx

哥儿- 发表于 2022-9-10 19:09
试着用find去写了一下，说实话第一次用find做多条件查找，你测试一下。
Sub test1()
    Dim arr, i%, rn ...

谢谢老师耐心解答！