在excel列中分隔重复项

Question

有一些选项可以突出显示/删除列中的重复数据（excel 2010），但我需要将这些重复数据显示在另一列中。 让我们考虑列A有500个数据，其中15个是重复的，我需要在C列中显示15个以便于查看。 （需要一个宏）

Answer 1

尝试一下：

Sub DuplicatesList()
    Dim A As Range, r As Range, i As Long
    Set A = Intersect(ActiveSheet.UsedRange, Range("A:A"))
    Dim c As Collection, v As String
    Set c = New Collection
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction

    On Error Resume Next
    For Each r In A
        v = r.Text
        If v <> "" Then
            If wf.CountIf(A, v) > 1 Then
                c.Add v, CStr(v)
            End If
        End If
    Next r
    On Error GoTo 0

    If c.Count = 0 Then Exit Sub
    For i = 1 To c.Count
        Cells(i, "B").Value = c.Item(i)
    Next i
End Sub

以下是示例输入和输出：