怎样通过这么奇葩的两列数据找到第三列中唯一对应的数据？

gcloveu

有A表和B表两个工作表，通过货号和订货数量，找到A表中对应的批次，奇葩在货号和订货数量存在同时相同的情况，但他们的批次不同。要求在B表中返回不同的批次！
难点一：通过货号和订货数量两个条件找到对应的批次
难点二：货号和订货数量都相同的对应不同的批次（即假如有两个货号和订货数量都相同的数据分别对应批次3和批次9，那么在B表中就是一个数据返回3，一个数据返回9）

注：为了方便验证，正确的对应结果是从1至72递增的数字

对应数据.7z (16.47 KB, 下载次数: 8)

2019-11-6 00:23 上传

点击文件名下载附件

renkangjizhen

倒着追，现在批号列循环，看哪个值等于货号和订货量，然后分别填入批号

larer

简单的问题没什么难度

gcloveu

renkangjizhen 发表于 2019-11-6 05:14
倒着追，现在批号列循环，看哪个值等于货号和订货量，然后分别填入批号

我就是倒着用批号列循环的啊，但是结果不对，求解！

gcloveu

larer 发表于 2019-11-6 07:43
简单的问题没什么难度

大神一出手，就知有没有！拜求代码，多谢！

蓝桥玄霜

批次的代码：

gcloveu

蓝桥玄霜 发表于 2019-11-6 09:14
批次的代码：

多谢蓝版的回复！没想到这么多年蓝版还一直在坚持不懈的为我们答疑解惑，诲人不倦！佩服！佩服！感谢这么多年一直有您与我们相伴~
言归正传！
第一个问题完美解决，但是第二个问题的结果不对。两个相同的数据结果返回的都是72，我的目的是一个返回35，一个返回72源数据

结果

gcloveu

1. Private Sub CommandButton1_Click()
   
2. Dim d, Arr, i&, Myr&, Brr
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Sheet1.Activate
   
5. Myr = Sheet2.Cells(Sheet2.Rows.Count, 5).End(xlUp).Row
   
6. Arr = Sheet2.Range("a8:p" & Myr)
   
7. For i = 1 To UBound(Arr)
   
8.     d(Arr(i, 5) & "|" & Arr(i, 10)) = Arr(i, 16)
   
9. Next
   
10. Myr = Cells(Rows.Count, 2).End(xlUp).Row
    
11. Brr = Range("a18:k" & Myr)
    
12. For i = 1 To UBound(Brr)
    
13.     If d.Exists(Brr(i, 2) & "|" & Brr(i, 6)) Then
    
14.         Cells(i + 17, 11) = d(Brr(i, 2) & "|" & Brr(i, 6))
    
15.     End If
    
16. Next
    
17. End Sub

复制代码

大家帮我看看蓝版的这个代码要怎样改才能符合第二个问题的要求？