数据匹配问题

free1024

各位老师好，请教一个问题：想实现根据2个表的“商品编码”，如果“拆零商品明细”表中的商品和“库存查询”表中商品一致，就把“拆零商品明细”表中的“配送规格”数据拷入到“库存查询”表中的“件装数”中，代码中用的是两个for循环，但是因数据量大运行的太慢了（带所有数据压缩后太大不能上传，只选取了一部分），所以在此请求各位老师帮忙，谢谢.

lenghonghai601

1. Sub test()
   
2. Dim d As Object, arr, brr, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. For i = 2 To UBound(brr)
   
7.     d(brr(i, 1)) = brr(i, 9)
   
8. Next i
   
9. For i = 2 To UBound(arr)
   
10.     If d.exists(arr(i, 2)) Then
    
11.         arr(i, 17) = d(arr(i, 2))
    
12.     Else
    
13.         arr(i, 17) = ""
    
14.     End If
    
15. Next i
    
16. Sheet1.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17. End Sub
    

复制代码

看见星光

1. Sub DoDict()
   
2.     Dim d As Object
   
3.     Dim arr, brr, i&, s$
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Sheets("拆零商品明细").[a1].CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         d(s) = arr(i, 9)
   
9.     Next
   
10.     brr = Sheets("库存查询").[a1].CurrentRegion
    
11.     ReDim arr(1 To UBound(brr), 1 To 1)
    
12.     For i = 2 To UBound(brr)
    
13.         s = brr(i, 2)
    
14.         If d.exists(s) Then
    
15.             arr(i, 1) = d(s)
    
16.         Else
    
17.             arr(i, 1) = ""
    
18.         End If
    
19.     Next
    
20.     arr(1, 1) = "件装数"
    
21.     Sheets("库存查询").[q1].Resize(UBound(arr), 1) = arr
    
22.     Set d = Nothing
    
23.     MsgBox "查询ok"
    
24. End Sub

复制代码

看见星光

配送.rar (82.66 KB, 下载次数: 14)

2018-7-5 15:33 上传

点击文件名下载附件

free1024

看见星光 发表于 2018-7-5 15:34

运行了代码后，“库存查询”表和“拆零商品明细”表相同商品没有问题，但是不相同的商品全部被清空了，不相同的商品要求“库存查询”表中"件装数"原值不能变。

free1024

lenghonghai601 发表于 2018-7-5 15:30

运行了代码后，“库存查询”表和“拆零商品明细”表相同商品没有问题，但是不相同的商品全部被清空了，不相同的商品要求“库存查询”表中"件装数"原值不能变。

看见星光

free1024 发表于 2018-7-5 17:21
运行了代码后，“库存查询”表和“拆零商品明细”表相同商品没有问题，但是不相同的商品全部被清空了，不 ...

        If d.exists(s) Then
            arr(i, 1) = d(s)
        Else
            arr(i, 1) = ""
        End If
修改为：
        If d.exists(s) Then
            arr(i, 1) = d(s)
        Else
            arr(i, 1) = brr(i,17)
        End If

zpy2

update 库存查询 set 件装数= (select 配送规格 from 拆零商品明细 where 库存查询.商品编码=拆零商品明细.商品编码);

用数据库如果数据量大的话，可能比较方便。

lenghonghai601

free1024 发表于 2018-7-5 17:21
运行了代码后，“库存查询”表和“拆零商品明细”表相同商品没有问题，但是不相同的商品全部被清空了，不 ...

这确实是个问题

free1024

看见星光 发表于 2018-7-5 17:31
If d.exists(s) Then
            arr(i, 1) = d(s)
        Else

运行了一下，还是不行，不相同的编码，“库存查询”表中的“件装数”一列还是被清空了。