数据汇总减汇总等于结存

7993708

chxw68 发表于 2024-7-20 18:43
练手。。。

老师,,运行不正确,...现在运行后左右两边删除了行变为一样多了.

7993708

chxw68 发表于 2024-7-20 18:42

老师 : 右边多的话数据会被删除和左边一样多...

ykcbf1100

7993708 发表于 2024-7-20 16:53
数据行数是有多有少不固定的,,,,所以不能手工去重,应该检测到未尾数据VBA去重并统汇总

参与一下，附件供参考，已考虑到左右数据不一样的情况。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.20
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r1 = Cells(Rows.Count, 2).End(3).Row
   
4.     r2 = Cells(Rows.Count, 10).End(3).Row
   
5.     Max = IIf(r1 < r2, r2, r1) + 2
   
6.     Cells(Max, 1).Resize(23 - Max，18).ClearContents
   
7.     For i = 10 To r1
   
8.         s = Cells(i, 3) & "|" & Cells(i, 4)
   
9.         d(s) = d(s) + Cells(i, 5)
   
10.     Next
    
11.     ReDim brr(1 To d.Count, 1 To 3)
    
12.     For Each k In d.keys
    
13.         m = m + 1
    
14.         brr(m, 1) = Split(k, "|")(0)
    
15.         brr(m, 2) = Split(k, "|")(1)
    
16.         brr(m, 3) = d(k)
    
17.     Next
    
18.     If m > 5 Then
    
19.         For i = 1 To m - 5
    
20.             Cells(Max + i, 1).EntireRow.Insert
    
21.         Next i
    
22.     End If
    
23.     Cells(Max, 3).Resize(m, 3) = brr
    
24.     Cells(Max, 11).Resize(m, 3) = brr
    
25.     Cells(Max, 1).Resize(m) = "合计："
    
26.     d.RemoveAll
    
27.     For i = 10 To r2
    
28.         s = Cells(i, 11) & "|" & Cells(i, 12)
    
29.         d(s) = d(s) + Cells(i, 13)
    
30.     Next
    
31.     For i = Max To m + Max - 1
    
32.         s = Cells(i, 11) & "|" & Cells(i, 12)
    
33.         Cells(i, 13) = d(s)
    
34.         Cells(i, 18) = Cells(i, 5) - Cells(i, 13)
    
35.     Next
    
36.     Set d = Nothing
    
37.     MsgBox "OK！"
    
38. End Sub
    
39. 
    

复制代码

7993708

chxw68 发表于 2024-7-20 18:42

老师您好,,  如果左边有的  ,右边没有就会有一空行

chxw68

表格以下格式不能改：表格内容从第10行开始，表尾有3行固定内容。

7993708

chxw68 发表于 2024-7-20 19:54
表格以下格式不能改：表格内容从第10行开始，表尾有3行固定内容。

老师您好,运行OK  没有问题.非常感谢. 我想请教老师: 如果我要忽略字母大小写应该加一句什么代码在哪里加?谢谢老师

chxw68

修改好了。

7993708

ykcbf1100 发表于 2024-7-20 19:40
参与一下。。。

首先感谢老师的付出. 有时候左边没收货,但是右边有可能已经先送货了,所以有时左边没有的产品,右边可能会出现,,,现在是左边没有的右边不会统计.麻烦老师了
另一个是忽略英文字母大小写...
感谢!!!

ykcbf1100

7993708 发表于 2024-7-21 01:01
首先感谢老师的付出. 有时候左边没收货,但是右边有可能已经先送货了,所以有时左边没有的产品,右边 ...

你用chxw68老师的代码好了，他写得比我好。