[VBA] 중복 제거
·
[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