提取重复出现的数值

众望星君

我走我流

=MID(NPV(9,IF((COUNTIF(A3:E3,A3:E3)>1)*(MATCH(A3:E3,A3:E3,)=COLUMN(A:E)),A3:E3)),3,5)

良良

=MID(NPV(9,IF((MATCH(A3:E3,A3:E3,)=COLUMN(A:E))*(COUNTIF(A3:E3,A3:E3)>1),A3:E3),1),3,SUM((MATCH(A3:E3,A3:E3,)=COLUMN(A:E))*(COUNTIF(A3:E3,A3:E3)>1)))
或
=CONCAT(IF(COUNTIF(A3:E3,UNIQUE(A3:E3,1))>1,UNIQUE(A3:E3,1),""))

你是那块小饼干

1. =CONCAT(UNIQUE(FILTER(A3:E3,COUNTIF(A3:E3,A3:E3)>=2,""),TRUE))

复制代码

sandays

=CONCAT(UNIQUE(FILTER(A3:E3,COUNTIF(A3:E3,A3:E3)-1),1))

leepoison

=CONCAT(UNIQUE(FILTER(A3:E3,COUNTIF(A3:E3,A3:E3)>1),1))

静听溪流

=CONCAT(UNIQUE(TOCOL(IF(COUNTIF(A3:E3,A3:E3)>1,A3:E3,a),2)))

canyng2

=TEXTJOIN("",,UNIQUE(TOROW(IF(COUNTIFS(A3:E3,A3:E3)>1,A3:E3,""),3),TRUE))

zhangcheng6688

学习一下字典
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 3 To UBound(arr)
   m = m + 1
   For j = 1 To UBound(arr, 2)
      If Not d.exists(arr(i, j)) Then
         d(arr(i, j)) = 1
      Else
         If d(arr(i, j)) = 1 Then
            brr(m, 1) = brr(m, 1) & arr(i, j)
            d(arr(i, j)) = d(arr(i, j)) + 1
         End If
      End If
   Next
   d.RemoveAll
Next
[g1].CurrentRegion.Offset(2).ClearContents
Columns("g").NumberFormat = "@"
If m > 0 Then
   [g3].Resize(m, 1) = brr
End If
End Sub

众望星君

良良 发表于 2024-9-19 21:44
=MID(NPV(9,IF((MATCH(A3:E3,A3:E3,)=COLUMN(A:E))*(COUNTIF(A3:E3,A3:E3)>1),A3:E3),1),3,SUM((MATCH(A3:E ...

老大，第一个公式可以用，但是我把范围A3:E3改为 AH4:AS4这个范围之后，提取不到结果呢？还请指教