엑셀 셀 내에서 중복을 제거

Question

내가 하나 개의 엑셀 셀에 다음 텍스트 문자열을 말해봐 다른 셀

John Mary 

어떻게하면됩니까?

제가 지금까지 시도한 것은 인터넷에 대한 문제였습니다. Excel의 기본 제공 중복 제거 또는 무언가가 countif과 중복되고 ""에 대한 중복이 포함 된 해결책을 찾을 수있었습니다. Excel 함수 목록, 특히 "텍스트"범주의 Excel 함수 목록을 살펴 보았지만 하나의 셀에서 수행 할 수있는 흥미로운 것을 찾을 수 없었습니다.

Answer 1

내가 작성한 것처럼 VBA로 해결하는 것은 간단합니다. VBA를 사용할 수없는 경우 한 가지 방법은 도우미 열을 사용하는 것입니다. 귀하의 문자열은 다음 수식을 입력

A1

에 있습니다 :

은 가정이 점점 공백을 시작할 때까지

C1: =IFERROR(INDEX(TRIM(MID(SUBSTITUTE($A$1," ",REPT(" ",99)),(ROW(INDIRECT("1:" & LEN($A$1)-LEN(SUBSTITUTE($A$1," ",""))+1))-1)*99+((ROW(INDIRECT("1:" & LEN($A$1)-LEN(SUBSTITUTE($A$1," ",""))+1))=1)),99)),ROWS($1:1),1),"") 

D1: =IF(COUNTIF(C1:$C$5,C1)=1,C1,"") 

선택 C1과 D1을 아래로 채우기

E1: =D1 
E2: =TRIM(CONCATENATE(D2," ",E1)) 

선택 E2 및 채우기 하위.

열 E에 채워진 마지막 셀의 내용이 결과가됩니다. 공식없이

=LOOKUP(REPT("z",99),$E$1:$E$100) 

Answer 2

: 자동 열 E 범위의 마지막 셀의 내용을 반환하는 셀을 가지고 싶다면

, 당신은 같은 수식을 사용하여 텍스트를 열으로 같은 공간 구분 기호를 사용하여 출력을 조 변경하고 각 열에 개별적으로 중복 제거를 적용한 다음 결과를 조 변경하십시오. 당신이 셀에 두 개 이상의 서로 다른 이름을 가질 수 없을거야 가정

Answer 3

이 작동합니다 :

John John John Mary Mary 
John Mary 
John Mary John Mary 
John Mary Mary 
John John Mary 

그것은 John 표시됩니다 :

=MID(A1&" ",1,FIND(" ",A1&" "))& 
MID(SUBSTITUTE(A1&" ",MID(A1&" ",1,FIND(" ",A1&" ")),"")&" ",1, 
FIND(" ",SUBSTITUTE(A1&" ",MID(A1&" ",1,FIND(" ",A1&" "))&" ",""))) 

그것은 다음의 모든 John Mary 표시됩니다 다음에 대한 모든 것 :

John 
John John 
John John John 

A1이 비어 있으면 아무 것도 표시되지 않습니다.

Answer 4

답은 여기에 있습니다 : https://www.extendoffice.com/documents/excel/2133-excel-remove-duplicate-characters-in-string.html

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String 
Dim x 
'Updateby20140924 
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 

이

사용 =remove(A2,",") A2는 로 구분 반복 텍스트 당신은 구분 기호를 변경할 수 있습니다 포함하는 모듈에 위의 코드를 넣어