将A、B列相同的值，多行合并到一行内，数值保持不变

quqiyuan

PQ也蛮方便和简单。。。

cnmlgb9998

借楼，练一下ＰＱ


PQ 香不香？？？？？？

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 2 To UBound(arr)
   s = arr(i, 1) & arr(i, 2)
   If Not d.exists(s) Then
      m = m + 1
      brr(m, 1) = arr(i, 1)
      brr(m, 2) = arr(i, 2)
      For j = 3 To UBound(arr, 2)
         If arr(i, j) <> "" Then
            brr(m, j) = arr(i, j)
         End If
      Next
      d(s) = m
   Else
      r = d(s)
      For j = 3 To UBound(arr, 2)
         If arr(i, j) <> "" Then
            brr(r, j) = arr(i, j)
         End If
      Next
   End If
Next
[j9].Resize(m, UBound(brr, 2)) = brr
End Sub

hugeinfo

=REDUCE(A1:G1,BYROW(UNIQUE(A2:B21),LAMBDA(a,TEXTJOIN("/",,a))),LAMBDA(x,y,   VSTACK(x,HSTACK(TEXTSPLIT(y,"/",),BYCOL(FILTER(C2:G21,A2:A21&B2:B21=SUBSTITUTE(y,"/","")),LAMBDA(x,SUM(x)))))))

wgreen

#在这里快速回复#=GROUPBY(A1:B21,C1:G21,CONCAT,0,0,-1)