求助：重复数据求和

jsfc

表格中，
1、如B列，C列，F列，H列，I列内容都相同（即，数据重复），而K列，M列不同，则分别将对应的K列及M列数值相加。
2、右边是想要的结果

注：重复的数据，重复次数不尽相同，而且位置也不一定上下相连

醉眼看尘世

数据透视即可

yz708493

首先M列是文本,得先数据分列一下,转成数字,另首先想到的是字典,数据到是能求出来,但是前面的KEY要如何拆就不会了,还有由于是2列结果统计,还要改代码在运行一次,实在水平不行,等大神更改吧
Public Sub 求和()
Dim D As Object
Dim ARR
Dim KEYY
ARR = ThisWorkbook.Sheets("22").UsedRange
Set D = CreateObject("SCRIPTING.DICTIONARY")

Dim I As Long
For I = 2 To UBound(ARR)
    KEYY = ARR(I, 2) & ARR(I, 3) & ARR(I, 6) & ARR(I, 8) & ARR(I, 9)
    If D.EXISTS(KEYY) Then
        D(KEYY) = D(KEYY) + ARR(I, 11)
        
        Else
        
        D(KEYY) = ARR(I, 11)
    End If
    Dim n As Long
    Dim key
   
    n = 2
For Each key In D.keys
    Cells(n, "x") = key
    Cells(n, "x").Offset(0, 1) = D(key)
    n = n + 1
Next key
Next I


End Sub

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

z865593849

shadow792

1. =VSTACK(Q1:W1,GROUPBY(CHOOSECOLS(B2:M100,{1,2,5,7,8}),HSTACK(REGEXP(K2:K100,"\d+.\d+")*1,M2:M100),SUM))

复制代码