879| 7
|
[已解决]sheet1明细匹配sheet2拆解结果写入sheet3 |
2学分
最佳答案Sub demo()
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=Microsoft.Ace.oledb.12.0;Extended Properties=Excel 12.0;data source=" & ThisWorkbook.FullName
Sql = "SELECT a.*,b.供应商编码,b.供应商简称,b.业务员 FROM [Sheet1$A2:I] a left join [Sheet2$] b on a.物料编码 = b.存货编号 and a.规格型号 = b.规格型号"
Set rs = conn.Execute(Sql)
Sheets(3).UsedRange.Offset(1).Cl ...
| ||
发表于 2022-12-19 13:47
|
显示全部楼层
本楼为最佳答案
| ||
点评
不客氣喔~
| ||
| ||
发表于 2022-12-19 15:32
|
显示全部楼层
| ||
点评
不客氣喔~
| ||