Question

筛选A列数据中有四个数字相同的数据，提取出来。

Answer 1

'先把数据排序，然后运行下面代码
Sub t()
    Dim i%, k%
    With Sheet1
    k = 1
       For i = 1 To .Range("a65536").End(xlUp).Row
            If Application.WorksheetFunction.CountIfs(.Range("a:a"), .Range("a" & i)) = 4 Then
                If .Range("b" & k) <> .Range("a" & i) Then
                    k = k + 1
                    .Range("b" & k) = .Range("a" & i)
                End If
            End If
       Next
    End With
End Sub

追问

有没有公式可以解决？谢谢

追答

在B1输入公式=IF(COUNTIF(A:A,A1)=4,A1,"")，然后下拉，筛选不为空的单元格，就是重复4次的数据

追问

需要的是数据中有四个数字相同的提取出来，例如A1与A3有2110这四个数字相同，A1与A2有2100四个数字相同。谢谢