两张表匹配

king780723

这里请教各位老师，我想把附件中sheet“报价表，匹配到sheet“Target”中去，网上找了个vba，依样画葫芦，没搞明白，望各位大大解惑！！

renkangjizhen

以两个表的A列作2个循环，如果循环值相等，就把报价表的对应行内人写入target表即可
为了减少跨表引用数据的麻烦，可将报价表的内容用写入数组再引用。方法：arr=sheets("报价表")。range([a1]:[h65536].end(3))

eqzh

用Vlookup或数据透视表也可以达到要求

神奇的VBA

楼上已经写了，我不写了。给个思路就是，多循环和多IF判断，先循环列，判断sheets(1)和sheets(2)中的列名称是否一样，若一样，再判断行名称是否一样，如果一样，把表2的值赋到表1相应的位置里。

king780723

朱荣兴 发表于 2019-6-10 09:53
清除报价表中的错误值符号，否则出错
Sub test() '''QQ:705664849
Set d = CreateObject("scripting.dict ...

感谢老师，为什么我查5个城市，把所有的城市都查出来了？

liuxi001

类vlookup用法，因为报价表中的列字段名和城市列中的值不会有相同项，一个字典可以解决。

1. Sub 字典应用4() '返回多列数据。类似index+match,表头顺序可以不相同
   
2.     ar = Sheet2.[a1].CurrentRegion '源
   
3.     Set d = CreateObject("scripting.dictionary") '字典 存行号 列号
   
4.     For i = 1 To UBound(ar)
   
5.         d(ar(i, 2)) = i '字典存储查找值在源表中的行号
   
6.     Next
   
7.     For i = 3 To UBound(ar, 2)
   
8.         d(ar(1, i)) = i '字典存储源表列字段序号
   
9.     Next
   
10.     br = Sheet1.[a1].CurrentRegion '查询表
    
11.     '查找
    
12.     For m = 3 To UBound(br) 'm n为需要匹配的起始行、列号
    
13.         For n = 2 To UBound(br, 2)
    
14.             br(m, n) = ar(d(br(m, 1)), d(br(2, n))) '从两个字典取行号和列号
    
15.         Next
    
16.     Next
    
17.     '输出
    
18.     With Sheet1.[a1].CurrentRegion
    
19.         .ClearContents
    
20.         .Value = br
    
21.     End With
    
22. End Sub

复制代码

liuxi001

用公式也方便，B3=INDEX(报价表!$A:$V,MATCH($A3,报价表!$B:$B,),MATCH(B$2,报价表!$1:$1,))