Excel-모든 열에서 네 번째 단어 삭제

0

Excel 스프레드 시트의 모든 열에서 네 번째 단어를 어떻게 삭제합니까? 예를 들어 "미스터 스미스 부인"이 있습니다. Mr.와 Mrs.를 유지하고 싶지만 Smith는 삭제합니다. 네 번째 단어를 찾아서 삭제하는 방법이 없습니까? 도움을 주셔서 대단히 감사합니다 ...

microsoft-excel-2007

— 신디 폴
소스

시작은 항상 "Mr. & Mrs." 정확히 철자가?

— Xantec

@ Xantec-그렇다면 단어를 삭제 해야하는 이유는 무엇입니까? "Mr. & Mrs."의 많은 사본으로 덮어 쓰십시오. 하하가 필요해!

— Shinrai

2

이것은 일종의 해결 방법이지만 공식이 아닌 일반 텍스트를 처리하는 경우 작동합니다.

데이터가있는 시트를 "Sheet1"이라고합니다. 스프레드 시트에 새 워크 시트를 작성하고 ( "시트 2"라고 가정) A1에 다음을 입력하십시오.

=IFERROR(LEFT(Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1)-1),"")

네 번째 단어 만 삭제하려면 다음을 입력하십시오.

=IFERROR(LEFT(Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1))&RIGHT(Sheet1!A1,LEN(Sheet1!A1)-FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1)+1)),IFERROR(LEFT(Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1)-1),""))

A1 셀을 복사하여 작업하려는 데이터와 함께 Sheet1의 셀과 일치하는 Sheet2의 셀에 붙여 넣습니다. 따라서 셀 A1-D5의 Sheet1에 데이터가있는 경우 셀 A1-D5의 Sheet2에 붙여 넣습니다. 붙여 넣은 모든 셀을 복사하고 Sheet1로 전환 한 다음 일치하는 지점에 값 을 붙여 넣습니다 . 이제 Sheet2를 삭제할 수 있습니다.

— 불 깃털
소스

2

이것은 벽에서 벗어난 아이디어 일 수 있지만 파일을 공백으로 구분 된 파일로 만든 다음 Excel로 열어보십시오. 이제 네 번째 열을 삭제하십시오. 이것은 종이에 잘 들립니다 ... 이 외에는 모르겠습니다.

— 데이비드
소스

1

텍스트를 Word에 붙여 넣고 공백을 탭으로 바꾼 다음 Word 내의 표로 변환하거나 Excel로 다시 붙여 넣은 다음 더 자주 작업하여이 버전을 사용합니다. 요점은 Word 또는 Excel에서 중첩 된 Find () 함수로 고심하지 않고 토큰 분리를 처리하도록하는 것입니다. (특히 Find ()가 단순히 0을 반환하는 대신 무언가를 찾지 못하면 오류를 발생시키기 때문에)

— Martha

0

Visual Basic 매크로에 붙여 넣어도 더 우아하고 효율적인 방법은 다음과 같습니다.

데이터가있는 시트를 "Sheet1"이라고합니다.

온 개발자 탭을 클릭 매크로 . ( 개발자 탭 이없는 경우 창의 왼쪽 상단에 있는 큰 둥근 Microsoft Office 단추 를 클릭하고 Excel 옵션 을 클릭 한 다음 인기 를 클릭 한 다음 리본에서 개발자 탭 표시 확인란 을 클릭하십시오 ).
대화 상자가 나타납니다. 매크로 이름 : 텍스트 상자 에서 매크로 이름을 지정하십시오. DeleteFourthWord 와 같은 것이 작동합니다.
만들기 버튼을 클릭하십시오 . ( 만들기 단추가 여전히 비활성화되어 있으면 매크로 이름에서 공백과 문장 부호를 제거하십시오.)

"Sub DeleteFourthWord ()"와 "End Sub"사이의 공간에 나타나는 창에 다음을 붙여 넣습니다.

 For Each c In ActiveCell.CurrentRegion.Cells
        If c.HasFormula = False Then
            Original_Cell_Text = c.Value
            Text_To_Parse = Original_Cell_Text
            Word1 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word1) = 0 Then
                Word1 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word1))
            End If
            Word2 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word2) = 0 Then
                Word2 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word2))
            End If
            Word3 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word3) = 0 Then
                Word3 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word3))
            End If
            Word4 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word4) = 0 Then
                Word4 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word4))
            End If
            Remaining_Text = Text_To_Parse
            If (Len(Word1) > 0 And Len(Word2) > 0 And Len(Word3) > 0 And Len(Word4) > 0) Then
                If Len(Remaining_Text) > 0 Then
                    c.Value = Word1 + Word2 + Word3 + Remaining_Text
                Else
                    c.Value = Word1 + Word2 + Word3
                End If
            End If
        End If
    Next

Microsoft Visual Basic 창을 닫고 개발자 탭 에서 매크로 를 클릭 하십시오.
방금 만든 매크로를 선택하고 옵션 ... 버튼을 클릭하십시오 .
아래 바로 가기 키 ,이 기능을 사용 (I이 예에서 "t"키를 사용합니다) 거기를 입력 할 수있는 바로 가기 키를 선택하십시오.
푸시 OK 버튼을 누른 다음 닫습니다 매크로 대화 상자를.
네 번째 단어를 제거 할 셀을 선택하고 바로 가기 키 (Ctrl + t와 같은)를 누릅니다. 이 단계를 원하는만큼 반복 할 수 있습니다.

참고 : 세 번째 단어 다음에있는 모든 것을 삭제하려면 대신 붙여 넣으십시오.

For Each c In ActiveCell.CurrentRegion.Cells
    If c.HasFormula = False Then
        Original_Cell_Text = c.Value
        Text_To_Parse = Original_Cell_Text
        Word1 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
        If Len(Word1) = 0 Then
            Word1 = Text_To_Parse
            Text_To_Parse = ""
        Else
            Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word1))
        End If
        Word2 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
        If Len(Word2) = 0 Then
            Word2 = Text_To_Parse
            Text_To_Parse = ""
        Else
            Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word2))
        End If
        Word3 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
        If Len(Word3) = 0 Then
            Word3 = Text_To_Parse
            Text_To_Parse = ""
        Else
            Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word3))
        End If
        Remaining_Text = Text_To_Parse
        If (Len(Word1) > 0 And Len(Word2) > 0 And Len(Word3) > 0) Then
            c.Value = Word1 + Word2 + Word3
        End If
    End If
Next

(소스 참고 : Excel 도움말 파일에서 개발자 탭을 얻는 방법에 대한 지침을 수정했습니다.)

— 불 깃털
소스