两组数据一一匹配

Dragonfly7995

各位大神，请指教，我想把sheets（“单品毛利率对比”）的A：F列数据（之后成为区域1）与H：M列数据（之后成为区域1）通过“条码”进行一一匹配，假如区域1中与区域2中，同时有，则放在同一行，假如区域1中有，而区域2中没有的，区域2就空行；反之亦然。我写了个程序（Sub test3()），可以看到在sheets（“结果”）中，区域1数据已经按照条码升序排列，并且区域2中没有的数据，也出现空行，但是区域2中就无法复制下来，老是报错，请指教！

yylucke

建议修改：
With Sheet5

    StrSQL1 = "SELECT * FROM [" & .Name & "$A1:F" & .Cells(.Rows.Count, 1).End(xlUp).Row & "] "
   
    StrSQL2 = "SELECT * FROM [" & .Name & "$H1:M" & .Cells(.Rows.Count, 8).End(xlUp).Row & "] "

    StrSQL = "SELECT a.*,b.* FROM (" & StrSQL1 & ") a LEFT JOIN (" & StrSQL2 & ") b ON a.商品名称=b.商品名称"
End With
[A2].CopyFromRecordset Cn.Execute(StrSQL)

yylucke

另，你用SQL处理你的数据，有BUG。你的条码会被识别为数值，导致后续处理出现问题。
所以，要么放弃SQL，要么用数组来处理。
至于为什么会被识别为数值，这是Excel中SQL自带的智能功能，他会根据前若干行的数据，分析认为是什么类型的数据。

洋务德雷

改成文本就可以使用了。看看是不是你要的？

ykcbf1100

字典做一个。

Dragonfly7995

ykcbf1100 发表于 2023-3-31 17:01
字典做一个。

你好，你的方法做出来以后，左边两边并没有根据条码一一对应哦

准提部林

區2有對應的, 放區1同一行, 其它都留空去除???