Excel 셀의 문자열에서 중복 문자 또는 단어를 제거하려면 어떻게 해야 하나요?

각 셀에 중복된 문자나 단어가 있고, 이를 제거하여 고유한 문자나 단어만 남기고 싶다고 가정해 봅시다. Excel에서 이 문제를 어떻게 해결할 수 있을까요?

사용자 정의 함수를 사용하여 텍스트 문자열의 중복 문자 제거

사용자 정의 함수를 사용하여 구두점으로 구분된 중복 단어 제거

사용자 정의 함수를 사용하여 텍스트 문자열의 중복 문자 제거

텍스트 문자열 목록이 있고, 다음 스크린샷에 표시된 대로 중복 문자를 제거해야 한다고 가정합시다. 여기서는 VBA 코드를 사용하여 처리하는 방법을 설명하겠습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 셀의 텍스트 문자열에서 중복 문자 제거하기

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

3. 그런 다음 코드를 저장하고 닫은 후, 워크시트로 돌아가서 =removedupes1(A2) (A2는 중복을 제거하려는 데이터 셀) 공식을 데이터 옆의 빈 셀에 입력합니다. 스크린샷 참조:

4. 그리고 나서 이 공식을 적용하려는 범위의 셀까지 채우기 핸들을 드래그하면 각 셀에서 모든 중복 문자가 즉시 제거됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

사용자 정의 함수를 사용하여 구두점으로 구분된 중복 단어 제거

셀 내 특정 구두점으로 구분된 단어들이 있다면, 원하는 대로 중복 단어를 제거할 수 있습니다. 다음 단계에 따라 진행하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 셀의 구두점으로 구분된 중복 단어 제거하기

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

3. 그런 다음 코드를 저장하고 닫은 후, 워크시트로 돌아가서 =RemoveDupes2(A2,",") 공식을 데이터 옆의 빈 셀에 입력합니다. 스크린샷 참조:

4. 그런 다음 필요한 셀까지 공식을 복사하면, 모든 중복 단어가 각 셀에서 제거됩니다. 스크린샷 참조:

참고: 위의 공식에서 A2는 사용하려는 셀을 나타내며, 쉼표(,)는 셀 내 단어를 구분하는 구두점을 의미합니다. 필요에 따라 다른 구두점으로 변경할 수 있습니다.