请问如何处理此类匹配、替换、查询

pirlolee

有两个xls文档，文档1中原始数据品名列与文档2中品名列存在模糊匹配关系，如何处理能通过2个表的品名对应关系，用表2的编码替换表1中对应的品名，同时将对应的规格填入表1，最后结果见图3

liulang0808

1. Sub 按钮1_Click()
   
2.     arr = Sheets(1).UsedRange
   
3.     brr = Sheets(2).UsedRange
   
4.     For j = 2 To UBound(brr)
   
5.         For i = 3 To UBound(arr)
   
6.             If InStr(arr(i, 1), brr(j, 1) & "(") > 0 And Len(brr(j, 1)) > 0 Then
   
7.                 brr(j, 1) = brr(j, 2) & Mid(arr(i, 1), Len(brr(j, 1)) + 1)
   
8.                 brr(j, 2) = brr(j, 3)
   
9.                 Exit For
   
10.             End If
    
11.         Next i
    
12.     Next j
    
13.     Sheets(3).[a1].Resize(UBound(brr), 2) = brr
    
14. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

pirlolee

首先谢谢您，我测试了一下，如果sheet1中的数据发生变化，结果就不对了