VBA用字典去重A列只出现一次

laoau138

VBA用字典去重A列只出现一次

mytto88

Sub kk()
    Dim dic As Object, arr(), i As Integer, arrTemple(), brr, n As Integer
    Set dic = CreateObject("scripting.dictionary")
    With Sheet3
        .[d1].CurrentRegion.Offset(1).Clear
        arr = .Range("a1").CurrentRegion
        ReDim brr(1 To UBound(arr), 1 To 1)
        For i = 1 To UBound(arr)
           dic(arr(i, 1)) = dic(arr(i, 1)) + 1
        Next i
        
        arrTemple = Application.Transpose(Array(dic.Keys, dic.Items))
        For i = 1 To UBound(arrTemple)
           If arrTemple(i, 2) = 1 Then
                n = n + 1
                brr(n, 1) = arrTemple(i, 1)
           End If
        Next i
        .[d2].Resize(n, 1) = brr
    End With
   
End Sub