多条件查找对应值

天上的小云云

写了个自定义，根据介绍人和卡号区段，得到卡片类型，函数得不到正确结果，还请老师们答疑解惑，谢谢

Function K(rng)
    For Each r In rng
        s = s & r.Value
    Next
    Set dic = CreateObject("scripting.dictionary")
    ar = Sheets("会员卡明细").Range("a1").CurrentRegion
    For i = 2 To UBound(ar)
        For j = ar(i, 2) To ar(i, 3)
            dic(ar(i, 1) & j) = ar(i, 4)
        Next
    Next
    K = dic(s)
End Function

天上的小云云

抱歉了，各位老师，线下有老师帮忙解惑了，是自定义函数里用到CurrentRegion引发的问题，改成Usedragne或者绝对地址问题就解决了

cui26896

天上的小云云 发表于 2020-1-21 21:34
抱歉了，各位老师，线下有老师帮忙解惑了，是自定义函数里用到CurrentRegion引发的问题，改成Usedragne或者 ...

改绝对地址就解决了？？我不相信，客户详情表介绍人加卡号在会员卡明细表中根本就对不上号，你怎么去做字典啊？你两个表之间，就不存在一一对应的关系！

天上的小云云

cui26896 发表于 2020-1-22 21:36
改绝对地址就解决了？？我不相信，客户详情表介绍人加卡号在会员卡明细表中根本就对不上号，你怎么去做字 ...

老师，怪我没表述清楚，第二张表的卡片编号是一个区段

cui26896

天上的小云云 发表于 2020-1-22 22:26
老师，怪我没表述清楚，第二张表的卡片编号是一个区段

有这样来论坛求助上附件的吗？根本就无法用给的附件做出结果来。

excel海

cui26896 发表于 2020-1-22 22:57
有这样来论坛求助上附件的吗？根本就无法用给的附件做出结果来。

是区段的,可以做出结果

天上的小云云

cui26896 发表于 2020-1-22 22:57
有这样来论坛求助上附件的吗？根本就无法用给的附件做出结果来。

结果应该是这样的，怪我求助的时候太过心急了

cui26896

弄了半天，还是没有把问题所在找到，不是结果的问题，是要做标准的“会员卡明细”这个表中，张对应有两种卡，你要在会员明细中给出有什么区别。