通过BCD三列数据得出右侧结果

学了忘忘了学

通过BCD三列数据得出右侧结果，人名重复出现的，在右侧只显示一次结果

part98

请上传附件

学了忘忘了学

part98 发表于 2024-7-15 11:55
请上传附件

忘记了，已传，谢谢~

part98

=IF(COUNTIF($C$1:C1,C1)=1,TEXTJOIN("+",,FILTER($B$1:$B$17&$D$1:$D$17,$C$1:$C$17=C1)),"")

学了忘忘了学

part98 发表于 2024-7-15 12:04
=IF(COUNTIF($C$1:C1,C1)=1,TEXTJOIN("+",,FILTER($B$1:$B$17&$D$1:$D$17,$C$1:$C$17=C1)),"")

谢谢，就是2007版本用不了这个函数~

hxj119

=REDUCE({"姓名","金额明细"},UNIQUE(C1:C17),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN("+",,FILTER(B1:B17&D1:D17,C1:C17=y))))))

mjm04

part98 发表于 2024-7-15 12:04
=IF(COUNTIF($C$1:C1,C1)=1,TEXTJOIN("+",,FILTER($B$1:$B$17&$D$1:$D$17,$C$1:$C$17=C1)),"")

那个filter第1参数的联接符号 用的真好，受教啦

飞天篮球猪

zhangcheng6688

学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "b").End(xlUp).Row
arr = Range("b1:d" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
   If Not d.exists(arr(i, 2)) Then
      d(arr(i, 2)) = arr(i, 1) & arr(i, 3)
   Else
      d(arr(i, 2)) = d(arr(i, 2)) & "+" & arr(i, 1) & arr(i, 3)
      arr(i, 2) = vbNullString
   End If
Next
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
   If arr(i, 2) <> "" Then
      brr(i, 1) = d(arr(i, 2))
   End If
Next
[f1].Resize(UBound(brr), 1) = brr
End Sub

木槿花西月锦绣