求助如何统计订单总量

yanglinzi

Sub 统计()
Dim arr, brr, i, j, r, sa, d, n
Set d = CreateObject("scripting.dictionary")
arr = ThisWorkbook.Sheets("订单明细").Range("a3").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 6)
For i = 2 To UBound(arr)
    sa = arr(i, 4) & "|" & arr(i, 5)
    If Len(arr(i, 4)) Then
        If Not d.exists(sa) Then
            n = n + 1
            d(sa) = n
            brr(n, 1) = n
            brr(n, 2) = arr(i, 4)
            brr(n, 3) = arr(i, 5)
            brr(n, 4) = arr(i, 6)
            brr(n, 5) = arr(i, 7)
            brr(n, 6) = arr(i, 8)
        Else
            m = d(sa)
            brr(m, 5) = brr(m, 5) + arr(i, 7)
        End If
    End If
Next
With Sheets("统计")
    .UsedRange.Offset(1).Clear
    .Range("a5").Resize(n, 6) = brr
End With
End Sub

yanglinzi

参与一下。。。

学号96637

请用最新版wps

1. function 汇总订单数量() {
   
2.     // 获取源数据
   
3.     var st = Sheets("订单明细");
   
4.     var sd = st.Range("A3:.H999999").Value2;
   
5.    
   
6.     // 创建映射表用于分组汇总
   
7.     var sm = new Map();
   
8.     var sh = sd[0];
   
9.     var mi = sh.indexOf("物料名称");
   
10.     var si = sh.indexOf("规格");
    
11.     var ui = sh.indexOf("单位");
    
12.     var qi = sh.indexOf("订单数量");
    
13.    
    
14.     // 遍历源数据行（跳过标题行）
    
15.     for (var i = 1; i < sd.length; i++) {
    
16.         var sr = sd[i];
    
17.         if (!sr || sr.length === 0) continue;
    
18.         
    
19.         var mn = sr[mi];
    
20.         var sp = sr[si];
    
21.         var un = sr[ui];
    
22.         var qt = sr[qi] || 0;
    
23.         
    
24.         // 创建唯一键
    
25.         var ky = `${mn}|${sp}|${un}`;
    
26.         
    
27.         // 更新汇总数量
    
28.         if (sm.has(ky)) {
    
29.             sm.set(ky, sm.get(ky) + qt);
    
30.         } else {
    
31.             sm.set(ky, qt);
    
32.         }
    
33.     }
    
34.    
    
35.     // 构建结果数组
    
36.     var sa = [
    
37.         ["序号", "物料名称", "规格", "单位", "合计数量", "备注"]
    
38.     ];
    
39.    
    
40.     var sn = 1;
    
41.     sm.forEach((qt, ky) => {
    
42.         var [mn, sp, un] = ky.split("|");
    
43.         sa.push([sn++, mn, sp, un, qt, ""]);
    
44.     });
    
45.    
    
46.     // 输出结果到统计表
    
47.     var tt = Sheets("统计");
    
48.     var tc = tt.Range("A4");
    
49.     tc.Resize(sa.length, sa[0].length).Value2 = sa;
    
50.    
    
51.     console.log("订单数量汇总完成");
    
52. }

复制代码

今铭昔

今铭昔

学号96637 发表于 2025-10-3 22:50
请用最新版wps

你这个感觉还是停留在VBA的思维，虽说for+if走天下，但是JS有很多有意思的特性，解决问题上简单优雅

张劲松2024

都是大神，学习中！！！！！！！！！！！！！！！！！

沈默00

=GROUPBY(订单明细!D4:.F99,订单明细!G4:.G99,SUM,,0)

簪中录哈哈

用excel函数公式就能实现啊，用不到vba