vba 根据订单号把清单的HD单号，匹配到csv表格中

zhangmy66

vba   根据订单号把清单的HD单号，匹配到csv表格中

ykcbf1100

这个适合用字典

loirol

不知所云。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.10
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("清单")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].Resize(r, 4)
   
7.     End With
   
8.     For i = 2 To UBound(arr)
   
9.         d(arr(i, 4)) = arr(i, 2)
   
10.     Next
    
11.     t = d.items
    
12.     With Sheets("CSV")
    
13.         r = .Cells(Rows.Count, 3).End(3).Row
    
14.         arr = .[a1].Resize(r, 3)
    
15.         For i = 3 To UBound(arr)
    
16.             s = arr(i, 3)
    
17.             If d.exists(s) Then
    
18.                 arr(i, 1) = d(s)
    
19.             End If
    
20.             .[a1].Resize(r, 1) = Application.Index(arr, 0, 1)
    
21.         Next
    
22.     End With
    
23.     Set d = Nothing
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

zhangmy66

ykcbf1100 发表于 2024-12-10 07:57
参与一下。。。

大佬就是大佬

z865593849

匹配数据

lredray

SQL执行后显示数字类型不匹配