求帮忙~~~

小葵1124

问题和想法都在表格里了 大家帮忙看看，不知道自己的思路对不对

lenghonghai601

1. Sub test()
   
2. Dim d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. For i = 2 To UBound(brr)
   
7.     d(brr(i, 1)) = brr(i, 2)
   
8. Next i
   
9. For i = 2 To UBound(arr)
   
10.     arr(i, 3) = d(arr(i, 2))
    
11. Next i
    
12. Sheet1.Range("a1").CurrentRegion = arr
    
13. End Sub
    

复制代码

lenghonghai601

1. Sub test2()
   
2. Dim cnn As Object
   
3. Set cnn = CreateObject("adodb.connection")
   
4. cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
5. Sql = "update ([Sheet1$] as a) left join ([Sheet2$] as b) on a.店铺名称=b.店铺名称 set a.品牌名称=b.品牌名称"
   
6. cnn.Execute (Sql)
   
7. cnn.Close
   
8. End Sub
   
9. ADO更新查询也可以。

复制代码