відокремлення дублікатів в Excel Column - excel-vba, vba, excel

Існували варіанти виділення / видаленнякопії даних у стовпці (excel 2010), але мені потрібні ці дублікати даних для відображення в іншому стовпці. Розглянемо, що у стовпці А є 500 даних, у яких 15 були дублікатами, мені потрібно 15 відображатись у стовпці С для зручного перегляду. (Потрібен макрос)

спасибі та вітаю, Prabhu.C

Відповіді:

Дайте це спробуйте:

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

Ось зразок введення та виведення: