求教各位大师：比较两表数据，找到差异最小值并返回

大漠孤烟直tc

涂黄色的字段为计算的结果。

gwjkkkkk

请参考附件。。。

limonet

代码在审核。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "select 生产工单 from [表1$]a left join (select 生产编号,min(绝对值) as 绝对值,first(生产工单) as 生产工单 from [表2$] group by 生产编号)b on a.物料编号=b.生产编号"
    Range("C2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub