求助大神关于多列提取每列重复数据

wyong127

求助大神关于多列提取每列中都出现的重复数据


研究了半天发现底子太弱，所以想来求助大神，大概需求如下：

1，有多列数据，列数,且行数不确定；
2，我需要提取各列的数据中都有的重复值;
3，是每列中都有的重复值,而不是在所有数据中出现过得重复值.

例:

列1     列2    列3    列4           重复值
2        4       5        4                 4
4        8       9        5                 9
6        9       2        8
9        1       4        1
0        5       3        9
3

金涌浩

先把每一列删除重复值，再4列合成一列，用countif求每个数出现的次数，等于4的就是4列都有的重复值

quqiyuan

用PQ吧。List.Inersect函数就搞定。

quqiyuan

用PQ吧，一个List.Intersect函数就搞定了。

tiger1976

Sub lll()

    Dim arr
    Dim arr1()
    Dim i, k, m, n, h, g As Integer
   
   
    arr = Range("a1").CurrentRegion
   
    For i = 1 To UBound(arr)
    m = 0
    n = 0
    h = 0
        For k = 1 To UBound(arr)
            If arr(i, 1) = arr(k, 2) Then
                m = m + 1
            End If
        Next
        For k = 1 To UBound(arr)
            If arr(i, 1) = arr(k, 3) Then
               n = n + 1
            End If
        Next
        For k = 1 To UBound(arr)
            If arr(i, 1) = arr(k, 4) Then
                h = h + 1
            End If
        Next
        If m >= 1 And n >= 1 And h >= 1 Then
            g = g + 1
            ReDim Preserve arr1(1 To g)
            arr1(g) = arr(i, 1)
        End If
    Next
   
    Range("f1").Resize(UBound(arr1), 1) = Application.WorksheetFunction.Transpose(arr1)


End Sub

wyong127

金涌浩 发表于 2023-3-25 07:58
先把每一列删除重复值，再4列合成一列，用countif求每个数出现的次数，等于4的就是4列都有的重复值

每列没有重复值

xzlu13014

=IFERROR(INDEX($A$2:$A$7000,SMALL(IF(COUNTIF($A$2:$D$7000,$A$2:$A$7000)=4,ROW($1:$6999),""),ROW(A1))),"")   就是感觉数据量大了会很卡，这个时候用powerquery吧

金涌浩

wyong127 发表于 2023-3-25 09:35
每列没有重复值

每列没有重复更好，直接合成一列，countif统计出现次数为4次的即可

sandays

=FILTER(A2:A5077,MMULT(COUNTIF(OFFSET(A2:A5845,,{0,1,2,3}),A2:A5077),Z1:Z4+1)=4)

高个子

1. =INDEX(A:A,SMALL(IF(MMULT(COUNTIF(OFFSET(A:A,,{0,1,2,3}),$A$2:$A$5077),Z1:Z4+1)=4,ROW($2:$5077)),ROW(A1)))

复制代码

数据太多了，非要函数的话你的版本太卡了，我买了一年的电脑半小时才出来，所以建议VBA或者power query解决，3楼、5楼的方案就很快