excel coloumnで重複を分離する - excel-vba、vba、excel

強調表示/削除するオプションがありました列にデータを重複していますが（excel 2010）、重複したデータを別の列に表示する必要があります。 列Aに500個のデータがあり、15個が重複していると考えてみましょう。簡単に見るために列Cに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

サンプル入力と出力は次のとおりです。