合并指令单数量求和

dgzwz

从B 表根据指生产指令单号汇总数量到A表，因为A表中有些指令单号是合并在一起

yynrzwh

合并数量.rar (25.5 KB, 下载次数: 8)

2024-1-18 19:58 上传

点击文件名下载附件

shiruiqiang

=========

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.18
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("B")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 2)
   
8.     End With
   
9.     For i = 2 To UBound(arr)
   
10.         s = arr(i, 1)
    
11.         d(s) = arr(i, 2)
    
12.     Next
    
13.     With Sheets("A")
    
14.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
    
15.         arr = .[a1].Resize(r, 8)
    
16.         For i = 4 To UBound(arr)
    
17.             s = arr(i, 1)
    
18.             If d.Exists(s) Then
    
19.                 arr(i, 8) = d(s)
    
20.             Else
    
21.                 arr(i, 8) = 0
    
22.             End If
    
23.         Next
    
24.         .[a1].Resize(r, 8) = arr
    
25.     End With
    
26.     Set d = Nothing
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    
30. 
    

复制代码

ykcbf1100

附件供参考。。。

680926

Sub t()
Dim arr, brr, crr
Dim str1
    arr = Sheets("A").Range("a1").CurrentRegion
    crr = Sheets("B").Range("a1").CurrentRegion
    For i = 4 To UBound(arr)
        brr = Split(arr(i, 1), "-")
        For j = 2 To UBound(brr)
            k = k + 1
            str1 = brr(0) & "-" & brr(1) & "-" & brr(j)
            For m = 2 To UBound(crr)
                If str1 = crr(m, 1) Then
                    s = s + crr(m, 2)
                    n = n + crr(m, 2)
                End If
            Next
        Next
        Range("k" & i) = s
        s = 0
    Next
    Range("k" & i - 1) = n
End Sub