求复杂的判断汇总解决方案

gzclc

想一键读取BN：BR的数据填写并汇总在G：K区域，规则见L：M说明（以G列说明。多个产品，现以二个产品设样）。

baofa2

1. Sub test0() '拼凑
   
2.   
   
3.   Dim data, results, sum_(), t(2) As Double
   
4.   Dim i As Long, j As Long, k As Long
   
5.   Dim p As Long, cnt As Long
   
6.   
   
7.   data = Range("BN3").CurrentRegion.Offset(1).Value
   
8.   results = Range("B3").CurrentRegion.Offset(1).Value
   
9.   ReDim sum_(1 To UBound(data, 2))
   
10.   
    
11.   For j = LBound(sum_) To UBound(sum_)
    
12.     sum_(j) = t
    
13.   Next
    
14.   
    
15.   p = 5
    
16.   For i = 1 To UBound(data) - 1
    
17.     cnt = cnt + 1
    
18.     For j = 1 To UBound(data, 2)
    
19.       results(cnt, p + j) = data(i, j)
    
20.       For k = 0 To UBound(t)
    
21.         sum_(j)(k) = sum_(j)(k) + Val(data(i, j))
    
22.       Next
    
23.     Next
    
24.     If InStr(results(cnt + 1, 3), "小计") Then
    
25.       cnt = cnt + 1
    
26.       For j = LBound(sum_) To UBound(sum_)
    
27.         results(cnt, p + j) = sum_(j)(0)
    
28.         sum_(j)(0) = 0
    
29.       Next
    
30.     End If
    
31.     If InStr(results(cnt + 1, 2), "合计") Then
    
32.       cnt = cnt + 1
    
33.       For j = LBound(sum_) To UBound(sum_)
    
34.         results(cnt, p + j) = sum_(j)(1)
    
35.         sum_(j)(1) = 0
    
36.       Next
    
37.     End If
    
38.     If InStr(results(cnt + 1, 1), "总计") Then
    
39.       cnt = cnt + 1
    
40.       For j = LBound(sum_) To UBound(sum_)
    
41.         results(cnt, p + j) = sum_(j)(2)
    
42.         sum_(j)(2) = 0
    
43.       Next
    
44.     End If
    
45.     If cnt = UBound(results) - 1 Then Exit For
    
46.   Next
    
47.   Range("B4").Resize(UBound(results), UBound(results, 2)) = results
    
48.   
    
49.   Beep
    
50. End Sub

复制代码

gzclc

baofa2 发表于 2024-4-5 12:28

baofa2大神，测试汇总结果正确，但读取数据越往后就超错位，何解？

baofa2

gzclc 发表于 2024-4-6 09:47
baofa2大神，测试汇总结果正确，但读取数据越往后就超错位，何解？

是不是右边区域数据一条一条地填入？遇到 计 就汇总一下，难道右边的有汇总数？

补充一下，错位是因为插入了 小计行 合计行 总计行。

shiruiqiang

黄小计，粉合计，绿总计？

gzclc

baofa2 发表于 2024-4-6 10:04
是不是右边区域数据一条一条地填入？遇到 计 就汇总一下，难道右边的有汇总数？

补充一下，错位是因为 ...

对，一条一条地填入，遇到小计、合计，总计不填，按要求汇总数据即可。

gzclc

shiruiqiang 发表于 2024-4-6 10:29
黄小计，粉合计，绿总计？

颜色不用标，我标上去是提示作用。

baofa2

gzclc 发表于 2024-4-6 10:43
对，一条一条地填入，遇到小计、合计，总计不填，按要求汇总数据即可。

gzclc

baofa2 发表于 2024-4-6 11:26

谢谢帮助。

gzclc

baofa2 发表于 2024-4-6 11:26

baofa2大神，测试遇到问题，如果BL：BM列有数据，那读取的数据把BL：BM列数据读取过来了，请教如何修正？