[VBA] 중복 제거

● 중복 제거하는 코드

Sub remove_duplicate()

    Dim rng As Range, c As Range
    Dim dc As New Collection
    
    Set rng = Range("a1", "a10")
    
    On Error Resume Next
    For Each c In rng
        If Len(c) Then
            dc.Add Trim(c), CStr(Trim(c))
        End If
    Next c


End Sub