指定表格列去重

noah2132

denislxm 发表于 2024-6-18 19:50
FILTER(A1:D10,MATCH(A1:A10&C1:C10&D1:D10,A1:A10&C1:C10&D1:D10,0)=SEQUENCE(COUNTA(D1:D10)))

这个好牛啊，太厉害了，真厉害！！

noah2132

hugeinfo 发表于 2024-6-18 18:03
=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$10&$C$2:$C$10&$D$2:$D$10,$A:$A&$C:$C&$D:$D,)=ROW($2:$10),ROW($2:$1 ...

公式好卡

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, 3) & arr(i, 4)
   If Not d.exists(s) Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
         brr(m, j) = arr(i, j)
      Next
      d(s) = ""
   End If
Next
[f1].Resize(1, 4) = Array("任务名称", "阶段", "角色", "姓名")
[f2].Resize(m, UBound(brr, 2)) = brr
End Sub

noah2132

zhangcheng6688 发表于 2024-6-19 06:51
学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion

计划是用公式解决就行，还是非常感谢，谢谢。

静听溪流

1. =IFERROR(INDEX(A:A,SMALL(IF(MATCH($A$2:$A$10&$C$2:$C$10&$D$2:$D$10,$A:$A&$C:$C&$D:$D,)=ROW($2:$10),ROW($2:$10)),ROW(A1))),"")

复制代码