☰

Excel - exclua a 4ª palavra em cada coluna

tag-icon • tag-icon microsoft-excel-2007
Excel - exclua a 4ª palavra em cada coluna

Como posso excluir a quarta palavra de cada coluna de uma planilha do Excel? Por exemplo, eu tenho "Sr. e Sra. Smith". Quero manter o Sr. e a Sra., mas excluir Smith. Não existe uma maneira de localizar e excluir a quarta palavra? Muito obrigado por qualquer ajuda...

Responder1

Isso é uma espécie de solução alternativa, mas funcionará se você estiver lidando apenas com texto normal (não com fórmulas).

Digamos que sua planilha com dados seja chamada de "Planilha1". Crie uma nova planilha em sua planilha (vamos supor que se chame "Planilha2") e, em A1, digite:

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

Se você quiser excluirapenasa quarta palavra, digite:

=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),""))

Copie a célula A1 e cole-a nas células da Planilha2 que correspondem às células da Planilha1 com os dados com os quais deseja trabalhar. (Portanto, se você tiver dados na Planilha1 nas células A1 a D5, cole-os na Planilha2 nas células A1 a D5.) Copie todas as células que você colou, mude para a Planilha1 ecolar valoresnos pontos correspondentes. Agora você pode excluir a Plan2.

Responder2

Essa pode ser uma ideia incomum, mas tente transformar o arquivo em um arquivo delimitado por espaço e, em seguida, abra-o com o Excel. Agora exclua a 4ª coluna.Isso parece bom no papel...Fora isso, não sei.

Responder3

Aqui está uma maneira mais elegante/eficiente de fazer isso, se você puder colar uma macro do Visual Basic:

Digamos que sua planilha com dados seja chamada de "Planilha1".

  1. NoDesenvolvedoraba, cliqueMacros. (Se não houverDesenvolvedorguia, clique na rodada grandeBotão do Microsoft Officeno canto superior esquerdo da janela, clique emOpções do Excel, então cliquePopulare, em seguida, clique noMostrar guia Desenvolvedor na faixa de opçõescaixa de seleção).
  2. Uma caixa de diálogo aparecerá. NoNome da macro:caixa de texto, nomeie sua macro; algo comoExcluirQuartaPalavravai funcionar.
  3. Clique noCriarbotão. (Se oCriarbotão ainda estiver desativado, retire os espaços e a pontuação do nome da macro.)

  4. Cole o seguinte na janela que aparecer, no espaço entre "Sub DeleteFourthWord()" e "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

  5. Feche oMicrosoftVisual Basicjanela e cliqueMacrosnoDesenvolvedoraba.

  6. Selecione a macro que você acabou de criar e clique no botãoOpções...botão.
  7. SobTecla de atalho, escolha uma tecla de atalho para usar nesta função (usarei a tecla "t" neste exemplo) e digite-a lá.
  8. Empurre oOKbotão e feche omacrocaixa de diálogo.
  9. Selecione as células das quais deseja remover a quarta palavra e pressione a tecla de atalho (como Ctrl + t). Você pode repetir esta etapa quantas vezes quiser.

Observação:Se você quiser excluir tudo após a terceira palavra, cole isto:

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

(Nota da fonte: modifiquei as instruções sobre como obter a guia Desenvolvedor no arquivo de Ajuda do Excel.)

informação relacionada