Note: The other languages of the website are Google-translated. Back to English

셀 문자열에서 중복 문자 또는 단어를 제거하는 방법은 무엇입니까?

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

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

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


화살표 블루 오른쪽 거품 사용자 정의 함수로 텍스트 문자열의 중복 문자 제거

텍스트 문자열 목록이있는 경우 다음 스크린 샷과 같이 중복 문자를 제거해야합니다. 여기에서 VBA 코드에 대해 이야기 할 수 있습니다.

문서-제거-중복-문자-1

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 중복을 제거하려는 데이터 셀입니다) 데이터 외에 빈 셀에 넣습니다 (스크린 샷 참조).

문서-제거-중복-문자-1

4. 그런 다음 채우기 핸들을이 수식을 적용 할 범위 셀로 드래그하면 모든 중복 문자가 각 셀에서 즉시 제거됩니다.

문서-제거-중복-문자-1


화살표 블루 오른쪽 거품 사용자 정의 함수를 사용하여 구두점으로 구분 된 중복 단어 제거

셀에 특정 문장 부호로 구분 된 단어가있는 경우 원하는대로 중복 단어를 제거 할 수도 있습니다. 다음 단계를 따르십시오.

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, ",") 데이터 옆에있는 빈 셀에 스크린 샷을 참조하십시오.

문서-제거-중복-문자-1

4. 그런 다음 수식을 필요한 셀에 복사하면 모든 중복 단어가 모든 셀에서 제거됩니다. 스크린 샷보기 :

문서-제거-중복-문자-1

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


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (66)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여전히 고장난 ... 실제로 아무 것도 표시하지 않습니다. 다음은 내 셀 데이터입니다. ,숲,제품,목재,펄프,27000,유리 분명히 속임수가 있습니다. 셀을 비워 둡니다. 생각?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
신경 쓰지 마, 난 바보야. 단어만 가져오기를 원했기 때문에 모듈의 이름을 RemoveDupes로 변경했지만 나중에 코드에서 RemoveDupes는 변경하지 않았습니다. 고정, 망치로 자기를 때리다....
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그리고 RemoveDupes와 ConCat(CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE가 아닌 VBA 장점)를 다음과 같이 결합했습니다. =RemoveDupes(ConCat(",",G495:G502),",") 그래서 그것은 내 세포를 끌어 들인 다음 모든 속임수를 닦아 냈습니다. RemoveDupes에 감사드립니다. ConCat: Function ConCat(Delimiter As Variant, ParamArray CellRanges() As Variant) As String Dim Cell As Range, Area As Variant If IsMissing(Delimiter) then Delimiter = "" For Each Area In CellRanges If TypeName( Area) = "Range" When Len(Cell.Value) then ConCat = ConCat & Delimiter & Cell.Value Next Else ConCat = ConCat & Delimiter & Area End If Next ConCat = Mid(ConCat, Len(Delimiter) ) + 1) 기능 종료
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"사용자 정의 기능을 사용하여 구두점으로 구분된 중복 단어 제거" 솔루션을 시도했는데 셀의 여러 단어에 대해 훌륭하게 작동하지만 내 문제가 완전히 해결되지는 않습니다. 여러 값이 있는 하나의 셀이 있고 여러 값을 가진 다른 셀과 비교한 다음 두 셀 사이에 존재하는 중복을 제거하려고 합니다. 그것을 할 수있는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
같은 여기 pls 도움
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 스레드가 아직 살아 있습니까? 이 VBA 기능에 대한 통찰력에 크게 감사드립니다. 제 질문은 코드와 관련이 있습니다. 특정 구두점을 구분 기호로 찾도록 지시해야 하는 경우 "@"를 다음과 같이 사용하려면 구두점?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
당신의 조언은 훌륭합니다! 약 58,400분 만에 2개의 레코드를 정렬하고 13주일(또는 그 이상)의 작업을 절약했습니다. 내 복제품은 이 " V&O 액체 연료 랜턴 1-2/13in blk 연료 랜턴 "을 이 " V&O 액체 연료 랜턴 1-2/XNUMXin blk "로 바꾸는 것이 조금 더 어려웠습니다. 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 도움이 필요합니다. 코드를 시도했지만 작동하지 않았습니다. 전화번호가 중복되어 쉼표로 구분된 중복 전화번호가 있습니다. 어떻게 해야 하는지 알려주세요 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
같은 여기 pls 도움
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
BRILLIANT 감사합니다! 감사합니다! 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋아 고마워!.....
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
야 너 도움이 필요해. 중복을 추출하려면 어떻게 해야 합니까? A1(asdfghjiklkk)에서 k는 중복 문자입니다. A2(k)를 원합니다. 어떻게 해야 하나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
특정 단어가 중복되지 않은 상태에서 중복 유지하고 싶은 단어가 있을 때 기능 조정이 가능한가요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 가이드 덕분에 많은 작업을 절약할 수 있었습니다! :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 매우 유용합니다. 나는 그것을 시도했고 예외적으로 나를 위해 작동합니다. 훌륭한 !!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 단일 셀 내에서 중복 문구를 찾는 훌륭하고 간단한 솔루션으로, 내 문제에 대한 답변을 찾는 동안 찾은 장황한 매크로 솔루션보다 훨씬 쉽습니다. 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드 덕분에 많은 시간을 절약할 수 있었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 1과 같은 데이터가 필요합니다. 단일 셀에 아래에 표시하고 2를 좋아합니다. 1. ZERPUR,MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16),MAHENDRAGARH, HARYANA-123029, 좋아요:- ZERPUR, MAHENDRAGARH, HARYANA-30771237, 8813073653, 123029 감사합니다. Hanuman Singh 30771237
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
어떻게 가르쳐? 그것도 알아야..
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
첫 번째 소문자의 위치를 ​​알 수 있습니까?


시험 - RAMSHsJHSAhsjDDD ------수식 = s로 첫 번째 소문자의 위치를 ​​알고 싶습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 메하반입니다.
다음 배열 수식을 적용하여 첫 번째 소문자의 위치를 ​​얻을 수 있습니다.
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
Ctrl + Shift + Enter 키를 함께 누르는 것을 잊지 마십시오.


그것이 당신을 도울 수 있기를 바랍니다, 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 스카이양

제대로 작동합니다.....
사실 같은걸 원했는데..

많은 감사합니다 !!


메하르반 싱팔
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
일치하는 문자열 중복을 제거하는 방법... 알려주실 수 있습니까?


감사합니다
Kiran
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 키란
문제의 예를 들어주실 수 있습니까? 또는 첨부 이미지를 삽입할 수 있습니다.
귀하의 회신을 기대하겠습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 더 많은 도움이 됩니다. 그러나 내 데이터 세트에 대해 더 구체적인 것을 원합니다.
두 개의 열 데이터가 있습니다. 아이디와 정보. Info Column에는 "Kant-, Udp-, Akr- 등"과 같은 셀별 project-id가 반복됩니다. 내 데이터 세트의 경우 project_id가 15보다 크고 수정되었습니다. 그래서 나는 셀에서 repeat_id를 삭제하고 싶지만 첫 번째 것은 유지합니다.
예: Kant-526(0.0287),Kant-527(0.0113),Kant-528(0.0262) /// Kant-526(0.0287),527(0.0113),528(0.0262),
Kant-543(0.0685),Kant-544(0.0685),Udp-097(0.0141) /// Kant-543(0.0685),544(0.0685),Udp-097(0.0141)

샘플 이미지가 여기에 첨부되어 있습니다. 이에 대한 해결책이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 임란입니다.
문제를 해결하지 못해 죄송합니다. 좋은 아이디어가 있는 사람이 있으면 여기에 댓글을 달아주세요.
감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 나름대로 해결책을 가지고 있다. 여기에서 SUBSTITUTE 수식을 사용했지만 내 데이터에 비해 너무 큽니다. 따라서 적절한 결과를 얻으려면 두세 번 반복하십시오.

=SUBSTITUTE(SUBSTITUTE("칸트-","",2), ("칸트-","",2)
여기에서 1st 2는 두 번째 Kant-대체 및 다음 모든 Kant-제거에 대해 ("Kant-","",2) extra를 추가합니다. 그것은 나를 위해 일하고 있습니다. 그러나 나는 좋은 VBA를 선호합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드를 보내 주셔서 감사합니다.

제발 날 좀 도와 줄 수 있니? 매크로 기능을 사용하여 셀의 구두점으로 구분된 단어를 제거하고 있지만 내 데이터는 단어가 아니라 실제로는 구입니다. "KTE, KTO, KTW, KTO" 대신 실제로 "청구서 준비, 내 이메일 검토, 계약 업데이트, 내 이메일 검토"와 같은 짧은 설명입니다.

단어 대신 중복된 구를 제거하도록 VBA를 업데이트할 수 있습니까?

감사합니다. 이것은 실제로 매우 도움이 될 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 알론소
중복 구문을 제거하려면 다음 사용자 정의 함수가 도움이 될 수 있습니다. 시도해 보십시오.

함수 RemoveDuplicateValue(문자열로 xStr, 문자열로 xDelim) 문자열로
희미한 x값
(Len(xDelim) > 0) 그리고 (Len(Trim(xStr)) > 0) 그러면
CreateObject("Scripting.Dictionary") 사용
Split(xStr, xDelim)의 각 xValue에 대해
If Trim(xValue) <> "" And Not .exists(Trim(xValue)) Then .Add Trim(xValue), 없음
다음
.Count > 0이면 RemoveDuplicateValue = Join(.keys, xDelim)

다른
RemoveDuplicateValue = xStr
END IF
최종 기능

그런 다음 이 공식을 적용하십시오: =RemoveDuplicateValue(A2,","), 구분 기호를 자신의 것으로 변경하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 스카이양님



다음 셀에 도움이 되기를 바랍니다.

PR-푸에르토리코; 미국-미국; 미국-미국

내 업로드 도구가 중복을 허용하지 않으므로 중복 US-UNITED STATES를 제거해야 합니다.



위의 VBA를 사용하고 수식 구분 기호를 ";"으로 바꿨습니다. 하이픈으로 인해 문제가 발생합니까? #NAME을 반환합니까? 수식을 실행할 때마다. 매크로/VBA를 처음 사용하지만 파일이 매크로 사용 파일로 저장되었는지 확인했습니다. 나는 정말로 이것을 T에 따르려고 노력했다.


내가 완료해야 했던 또 다른 프로젝트에 도움이 되었기 때문에 이미 훌륭한 정보를 제공해주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 마이클,
셀에서 모든 중복 문구를 제거하고 고유한 문구만 남겨두시겠습니까?
귀하의 회신을 기다리겠습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 내가 찾고있는 출력입니다.

현재: PR-푸에르토리코; 미국-미국; 미국-미국
희망: PR-PUERTO RICO; 미국-미국

이것이 의미가 있기를 바라며 빠른 답변에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 마이클,
아래 코드를 적용한 다음 =RemoveDuplicateValue(A2,";") 공식을 사용하기만 하면 됩니다. 시도해보십시오. 도움이 되길 바랍니다!

함수 RemoveDuplicateValue(문자열로 xStr, 문자열로 xDelim) 문자열로
희미한 x값
(Len(xDelim) > 0) 그리고 (Len(Trim(xStr)) > 0) 그러면
CreateObject("Scripting.Dictionary") 사용
Split(xStr, xDelim)의 각 xValue에 대해
If Trim(xValue) <> "" And Not .exists(Trim(xValue)) Then .Add Trim(xValue), 없음
다음
.Count > 0이면 RemoveDuplicateValue = Join(.keys, xDelim)

다른
RemoveDuplicateValue = xStr
END IF
최종 기능
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
너무 감사합니다. 귀하의 응답은 내 커피 한 잔보다 더 환영받았습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 이것은 정말 도움이됩니다
하지만 "NO TO:" 뒤에 오는 전체 단어를 제거하고 싶습니다.

예: NO TO: [C11bx1]

NO TO: [C11bx3] 이렇게
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호