求用VBA导入另一个表格数据

wzd028

麻烦各位老师，因为数据比较多，如何运行VBA，在采购计划表日期单元格根据“物品编号”（C列）,把“入库数据”表格相对应“物品编号”（G列）的数量(M列)导入采购计划表日期单元格，具体见表格样板，谢谢!
       导入数据.rar (45.38 KB, 下载次数: 10)

2024-9-27 20:12 上传

点击文件名下载附件

蓝桥玄霜

导入的例子：

mmwwdd

蓝桥玄霜 发表于 2024-9-28 09:48
导入的例子：

厉害，版主几十年如一日，这种精神太值得佩服了

明天会更好zj

wzd028

明天会更好zj 发表于 2024-9-28 10:35

谢谢老师的帮助，你的代码不能运行，不知道哪里的问题

   

明天会更好zj

应该是前面的set，表名和你上传的表名不一致

Qs18

1. Sub qs()
   
2. Dim arr, i, dic As Object
   
3. On Error Resume Next
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. arr = Sheet2.UsedRange.Value
   
6. For i = 2 To UBound(arr)
   
7.     s = arr(i, 7): s2 = CDate(arr(i, 5))
   
8.     If Not dic.exists(s) Then Set dic(s) = CreateObject("scripting.dictionary")
   
9.     If Not dic(s).exists(s2) Then
   
10.         dic(s)(s2) = arr(i, 13)
    
11.     Else
    
12.         dic(s)(s2) = dic(s)(s2) + arr(i, 13)
    
13.     End If
    
14. Next
    
15. brr = Sheet1.UsedRange.Value
    
16. For i = 4 To UBound(brr)
    
17.     If brr(i, 3) <> Empty Then
    
18.     s = brr(i, 3)
    
19.     For j = 23 To 53
    
20.         s2 = CDate(brr(3, j))
    
21.         If dic(s).exists(s2) Then
    
22.         brr(i, j) = dic(s)(s2)
    
23.         End If
    
24.    
    
25.     Next
    
26.    
    
27.     End If
    
28. Next
    
29. Sheet1.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
30. Set dic = Nothing
    
31. End Sub
    

复制代码

Qs18

试试。。。。。。。。。。。

Qs18

试试。。。。。。。。。。。。