[VBA] 중복 제거

2021. 4. 16. 13:46·[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

 

반응형
저작자표시 비영리 변경금지 (새창열림)

'[VBA]' 카테고리의 다른 글

[VBA] 숨겨진 워크시트 모두 보이기  (0) 2021.07.01
[VBA] 범위 합계 구하기  (0) 2021.04.16
[VBA][Borders.LineStyle] 셀 테두리 선 스타일  (0) 2021.04.16
[VBA] 날짜 변수 생성,날짜 데이터 필터  (0) 2021.03.16
[VBA] 필터 활성,비활성화 and 필터 데이터 모두 보이기  (0) 2021.03.16
'[VBA]' 카테고리의 다른 글
  • [VBA] 숨겨진 워크시트 모두 보이기
  • [VBA] 범위 합계 구하기
  • [VBA][Borders.LineStyle] 셀 테두리 선 스타일
  • [VBA] 날짜 변수 생성,날짜 데이터 필터
jkod
jkod
  • jkod
    개발린이
    jkod
  • 반응형
    • 분류 전체보기
      • [RPA]
      • [Python]
      • [VBA]
      • [JAVA]
      • [Window]
      • [MAC]
      • [기타]
        • 생활
  • 최근 글

  • 인기 글

  • hELLO· Designed By정상우.v4.10.2
jkod
[VBA] 중복 제거
상단으로

티스토리툴바