如何高效的将“表2”中的部分数据更新到“表1”?

seduse

各位大神！！！
附件EXCEL文件中有2个工作表

①表1是原始数据
②表2的C列、D列是从表1中读取的原始数据
③表2的E列、F列是从最新的数据（最新的价格 和 价格更新的日期）
④表2的G列 是C列 与 E列 数据比对的结果（深粉色为比对结果有差异）


问题：
如何将表2中，G列中出现数据差异，对应的E列的数据（表格中标注了黄色数据），更新到表1中？



更新前置条件：
①G列中出现数据差异（如表2种序号1、2、4），才需要更新表1 A列中对应货号的D列（PRICE）

数据更新要求：
①在表1中A列中，找到表2中B列的货号
②将到表2中该货号对应的E列的“PI价格”，更新到表1该货号对应D列“PRICE”
③将到表2中该货号对应的E列的“PI日期”，更新到表1该货号对应E列“PRICE Updated”

ykcbf1100

参与一下。

limonet

用到left join与iif

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, Rst As Object, i%
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=NO';data source=" & ThisWorkbook.FullName
    StrSQL = "select a.*,b.f5 as f8,b.f6 as f9 from [表1$A2:G]a left join [表2-新价格更新到表1$A2:G]b on a.f1=b.f2"
    StrSQL = "select f1,f2,f3,iif(f8 is null,f4,f8),iif(f9 is null,f5,f9),f6,f7 from (" & StrSQL & ")"
    Range("A2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

psxk3535

感觉表2 E、F列数据是手动操作的吧，添加或修改表2 E、F列数据，自动修改表1对应数据

psxk3535

limonet 发表于 2023-7-12 22:31
用到left join与iif

知识所限，老师的代码完全看不懂了，但效果一样，但同时也发现一个问题，就是第一次点击按钮，表2的E列价格列会变成日期格式，表1、表2显示正常。第二次点击，表1和表2改变过数据的行又会出现新的数据变化，表2的G列价格差的相关行会显示1，然后再点击按钮，就不在出现变化。如何可以修正这种现象，谢谢！

yynrzwh

1. Sub 比较()
   
2. 
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets("表2-新价格更新到表1").UsedRange
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 2) <> "" Then
   
7.             If arr(i, 3) <> arr(i, 5) Then
   
8.                 d(arr(i, 2)) = Array(arr(i, 5), arr(i, 6))
   
9.             End If
   
10.         End If
    
11.     Next i
    
12. brr = Sheets("表1").UsedRange
    
13.     For i = 2 To UBound(brr)
    
14.         If d.exists(brr(i, 1)) Then
    
15.             brr(i, 4) = d(brr(i, 1))(0)
    
16.             brr(i, 5) = d(brr(i, 1))(1)
    
17.         End If
    
18.     Next i
    
19. Sheets("表1").UsedRange = brr
    
20. 
    
21. Set d = Nothing
    
22. End Sub
    

复制代码

LIUZHU

limonet 发表于 2023-7-12 22:31
用到left join与iif

请教下，left join，是保留表1的全部记录，还是表2的全部记录，不记得了

sdytsxd991122

参与

limonet

LIUZHU 发表于 2023-7-13 09:44
请教下，left join，是保留表1的全部记录，还是表2的全部记录，不记得了

表1的全部记录