请教分类汇总

汉唐

请教大侠，jsa分类汇总的代码如何写（vba代码也才学会），写个几句实在写不了，特请教
vba 代码：

Sub test()
Dim i As Long, j As Long, r As Long, n As Long, k As Long
Dim arr, brr(1 To 1000, 1 To 20), s
Set d = CreateObject("scripting.dictionary")
With Sheets("原始表")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Cells(1, 1).Resize(r, 9)
End With
For j = 1 To 9
brr(1, j) = arr(1, j)
Next 'j
brr(1, 10) = "合计"
n = 1
For i = 2 To UBound(arr)
s = arr(i, 1)
If Not d.exists(s) Then
n = n + 1
d(s) = n
brr(n, 1) = arr(i, 1)
End If
k = d(s)
For j = 2 To UBound(arr, 2)
brr(k, j) = brr(k, j) + arr(i, j)
brr(k, 10) = brr(k, 10) + brr(k, j)
Next 'j
Next 'i
With Sheets("结果表")
.Cells.ClearContents
.Cells(1, 1).Resize(n, 10) = brr
End With
Set d = Nothing
End Sub

发哥76

brr(k, 10) = brr(k, 10) + brr(k, j)这句错了，改成arr就可以了，其他没毛病啊

汉唐

老师，谢谢！我是说按这个vba的思路汇总，怎么写jsa代码？

yangqianming

发哥76 发表于 2024-6-1 19:32
brr(k, 10) = brr(k, 10) + brr(k, j)这句错了，改成arr就可以了，其他没毛病啊

我把Again123456老师的搬来了，我也没入门，没明白你的合计是怎么来的。

汇总表.rar (7.29 KB, 下载次数: 2)

2024-6-1 20:37 上传

点击文件名下载附件

yangqianming

这是我得到的结果。

1. function test(){
   
2.         let arr=Worksheets("原始表").Range("a1:i61").Value();
   
3.         let bt=arr.shift();
   
4.         let res=arr.reduce((p,[xsbm,pg,xj,lz,xg,lg,xhs,blg,hmg])=>(
   
5.                 p[[xsbm]]=p[[xsbm]]||[xsbm,0,0,0,0,0,0,0,0,0],
   
6.                 p[[xsbm]][1]+=pg,
   
7.                 p[[xsbm]][2]+=xj,
   
8.                 p[[xsbm]][3]+=lz,
   
9.                 p[[xsbm]][4]+=xg,
   
10.                 p[[xsbm]][5]+=lg,
    
11.                 p[[xsbm]][6]+=xhs,
    
12.                 p[[xsbm]][7]+=blg,
    
13.                 p[[xsbm]][8]+=hmg,
    
14.                 p[[xsbm]][9]=p[[xsbm]][1]+p[[xsbm]][2]+p[[xsbm]][3]+p[[xsbm]][4]+p[[xsbm]][5]+p[[xsbm]][6]+p[[xsbm]][7]+p[[xsbm]][8],
    
15.                 p),
    
16.                 {})
    
17.                 bt.push("合计")
    
18.         res=Object.values(res);
    
19.         res.unshift(bt);                       
    
20.         Worksheets("结果表").Range("l1").Resize(res.length,res[0].length).Value2=res;       
    
21.        
    
22. }

复制代码

汉唐

yangqianming 发表于 2024-6-1 21:07
这是我得到的结果。

谢谢老师，代码挺简洁的，我要好好学习理解.

汉唐

yangqianming 发表于 2024-6-1 21:07
这是我得到的结果。

第5句怎么理解？请解惑！p[[xsbm]]=p[[xsbm]]||[xsbm,0,0,0,0,0,0,0,0,0]

sdytsxd991122

学习中.....

sdytsxd991122

汉唐

sdytsxd991122 发表于 2024-6-2 07:05

大师的这个代码我看明白了，谢谢