自动排序加求和方案

熊涛涛

求助大神：
-将原始数据 表格整理成 按 表格 目标 整理

原始数据表格


目标 表格

夏天的风shh4695

请测试。。。。。。。。

夏天的风shh4695

Sub GGH()
Dim arr, brr, i, j, s, k, 行次, d
Set d = CreateObject("scripting.dictionary")
arr = Sheets("原始数据").[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) / 2 + 1)
brr(1, 1) = "MODEL":    k = 2
For j = LBound(arr, 2) + 1 To UBound(arr, 2) Step 2
    brr(1, j / 2 + 1) = arr(1, j)
    For i = LBound(arr) + 2 To UBound(arr)
        s = arr(i, j)
        If Len(Trim(s)) = 0 Then GoTo 100
        If Not d.Exists(s) Then
            d(s) = k
            brr(k, 1) = s
            brr(k, j / 2 + 1) = brr(k, j / 2 + 1) + arr(i, j + 1)
            k = k + 1
        Else
            行次 = d(s)
            brr(行次, j / 2 + 1) = brr(行次, j / 2 + 1) + arr(i, j + 1)
        End If
100:
    Next i
Next j
Sheets("结果").[a1].Resize(k, UBound(brr, 2)) = brr
End Sub

熊涛涛

夏天的风shh4695 发表于 2022-12-23 16:16
请测试。。。。。。。。

666；谢谢大神

hugeinfo

用pq处理后透视即可！！

bdlxzhf

=SUM(N(IF((原始数据!$B$3:$O$30=目标!$K2)*(原始数据!$B$1:$O$1=目标!L$1),原始数据!$C$3:$P$30)))

数组公式

无聊的黑猫

试试 下班了 比较急 就没对了

一杯绿茶来了

=LET(s,SORT(WRAPROWS(TOCOL(B3:O30),2)),_a,DROP(UNIQUE(TAKE(s,,1)),-1),_b,UNIQUE(B1:O1,TRUE,TRUE),yy,REDUCE(HSTACK(B2,_b),_a,LAMBDA(x,y,VSTACK(x,HSTACK(y,DROP(REDUCE("",_b,LAMBDA(r,c,HSTACK(r,IFERROR(SUM(FILTER(OFFSET(A3:A30,,MATCH(c,B1:O1,)+1),OFFSET(A3:A30,,MATCH(c,B1:O1,))=y)),"")))),,1))))),yyds,REDUCE("合计",SEQUENCE(,COUNT(_b)),LAMBDA(x,y,HSTACK(x,SUM(CHOOSECOLS(DROP(yy,1,1),y))))),VSTACK(yy,yyds))
你这个示例好像结果不对哎！

熊涛涛

一杯绿茶来了 发表于 2022-12-23 19:17
=LET(s,SORT(WRAPROWS(TOCOL(B3:O30),2)),_a,DROP(UNIQUE(TAKE(s,,1)),-1),_b,UNIQUE(B1:O1,TRUE,TRUE),yy, ...

结果不对就是对的；RANDBETWEEN 函数没有及时取消造成结果不对

熊涛涛

一杯绿茶来了 发表于 2022-12-23 19:17
=LET(s,SORT(WRAPROWS(TOCOL(B3:O30),2)),_a,DROP(UNIQUE(TAKE(s,,1)),-1),_b,UNIQUE(B1:O1,TRUE,TRUE),yy, ...

高手；我先研究一下