|
▼Aoichi さん:
おじゃまします
>重複コードを別シートに書き出した
Dictionaryオブジェクトを使って「商品コード」の出現回数をカウントし、
1回だけのものはDictionaryから削除して、重複アイテムをリストしました。
Sub Try1()
Dim i As Long
Dim v As Variant
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
With Worksheets("重複Data")
v = .Range("C4", .Cells(.Rows.Count, 3).End(xlUp)).Value2
End With
For i = 1 To UBound(v) '商品コードをDictionaryに登録
dic(v(i, 1)) = dic(v(i, 1)) + 1 '出現回数カウント
Next
For Each v In dic.Keys()
Debug.Print v, dic(v)
If dic(v) < 2 Then dic.Remove v '「重複なし」なら削除
Next
With Worksheets("重複一覧")
.[C3].Value = "重複一覧"
.[C4].Resize(dic.Count).Value2 = _
Application.Transpose(dic.Keys)
End With
End Sub
|
|