合并同名，并取合计金额大于等于100元的名字

hcm19522

D2{=INDEX(A:A,MIN(IF((SUMIF(A:A,A$2:A$9,B:B)>=1000)*(COUNTIF(D$1:D1,A$2:A$9)=0),ROW($2:$9),99)))&""

zzq0117

博爱风雨同舟 发表于 2024-8-1 16:07
=LET(A,SUMIFS(B2:B9,A2:A9,A2:A9)*(MATCH(A2:A9,A2:A9,)=ROW(1:8)),HSTACK(INDEX(A1:A9,SMALL(IF(A>=1000, ...

现在就着迷这一步到位的公式

992146

=LET(a,UNIQUE(A2:A9),b,SUMIF(A2:A9,a,B2:B9),HSTACK(FILTER(a,b>=1000),FILTER(b,b>=1000)))

mjm04

zzq0117 发表于 2024-8-1 16:05
老师，第一次见公式中汉字为条件的，真牛。

不是老师呢~~~

LET函数中定义变量名称时，使用 中文 或 英语字母 都是一样的，对于LET来说并无区别；你也可以试试

用中文只是定义变量名称，只是方便后面引用时不用再去想变量名代表所代表的意义，可以直接看中文

celexcel2017

这样的数据，是不是用透视表，也一样快速解决

mjm04

celexcel2017 发表于 2024-8-2 09:39
这样的数据，是不是用透视表，也一样快速解决

是的，在透视完了之后，再金额那里筛选金额 >1000元 的

这里是函数版块，所以 大家都写 函数 了呢

zhangcheng6688

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