Ir para o conteúdo principal

Excel remove caracteres, palavras e números de strings de texto

Suponha que você tenha uma longa lista de strings de texto que contêm caracteres, números ou outros símbolos específicos. Em certos casos, você pode precisar remover alguns caracteres com base na posição, como da direita, esquerda ou meio das sequências de texto, ou excluir alguns caracteres indesejados ou números da lista de sequências. Encontrar as soluções uma por uma vai te dar dor de cabeça, este tutorial reúne todos os tipos de métodos para remover caracteres, palavras ou números no Excel.

Índice:

1. Remova os caracteres da esquerda, direita ou meio das strings de texto

2. Remova caracteres indesejados / especiais de strings de texto

3. Remova os caracteres / texto antes ou depois do caractere específico

4. Remova palavras de strings de texto


Remova os caracteres da esquerda, direita ou meio das strings de texto

Pode ser uma tarefa comum para a maioria de nós remover alguns caracteres da esquerda, da direita ou do meio das strings de texto em planilhas do Excel. Esta seção apresentará alguns truques rápidos e fáceis para resolver essa tarefa.

1.1 Remova os primeiros n caracteres de strings de texto

Se você precisar remover os primeiros n caracteres de uma lista de strings de texto, os métodos a seguir podem lhe fazer um favor.

 Usando fórmulas

Normalmente, para excluir os caracteres do início das strings de texto, você pode usar a função REPLACE ou uma combinação das funções RIGHT e LEN.

Função REPLACE para remover os primeiros N caracteres:

=REPLACE(string, 1, num_chars, "")
  • corda: A string de texto da qual você deseja remover os caracteres;
  • num_chars: O número de caracteres que você deseja remover.

Por exemplo, para remover os primeiros 2 caracteres das células, use a fórmula abaixo e arraste a alça de preenchimento para copiar a fórmula para outras células, veja a captura de tela:

=REPLACE(A4, 1, 2, "")

Funções RIGHT e LEN para remover os primeiros N caracteres:

=RIGHT(string, LEN(string) - num_chars)
  • corda: A string de texto da qual você deseja remover os caracteres;
  • num_chars: O número de caracteres que você deseja remover.

Para remover os 2 primeiros caracteres das células, aplique a seguinte fórmula:

=RIGHT(A4,LEN(A4)-2)


 Usando a função definida pelo usuário

Para remover os primeiros n caracteres das células, você também pode criar uma Função definida pelo usuário para resolver essa tarefa. Siga os seguintes passos:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remova os primeiros n caracteres das strings de texto

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. Em seguida, volte para a planilha e insira esta fórmula: = removefirstx (A4,2) em uma célula em branco e arraste a alça de preenchimento para baixo para obter os resultados que você precisa, veja a captura de tela:

Note: Nesta fórmula: A4 é a célula da qual você deseja remover caracteres; O número 2 indica o número de caracteres que você gostaria de remover do início da string de texto.


1.2 Remover os últimos n caracteres de strings de texto

Para remover um número específico de caracteres do lado direito das strings de texto, você também pode usar uma fórmula ou função definida pelo usuário.

 Usando fórmula

Para remover os últimos n caracteres das strings de texto, você pode usar uma fórmula baseada nas funções LEFT e LEN.

Funções LEFT e LEN para remover os últimos N caracteres:

=LEFT(string, LEN(string) - num_chars)
  • corda: A string de texto da qual você deseja remover os caracteres;
  • num_chars: O número de caracteres que você deseja remover.

Para excluir 3 caracteres do final das strings de texto, use esta fórmula e arraste a alça de preenchimento para copiar a fórmula para outras células, veja a captura de tela:

=LEFT(A4, LEN(A4) - 3)


 Usando a função definida pelo usuário

Aqui, uma função definida pelo usuário também pode ajudá-lo a remover os últimos n caracteres de uma lista de células, faça o seguinte:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remove os últimos n caracteres das strings de texto

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. Em seguida, volte para a planilha e insira esta fórmula: = removelastx (A4,3) em uma célula em branco e arraste a alça de preenchimento para baixo para obter os resultados que você precisa, veja a captura de tela:

Note: Nesta fórmula: A4 é a célula da qual você deseja remover caracteres; O número 3 indica o número de caracteres que você gostaria de remover do final da string de texto.


1.3 Remova o primeiro, o último n caracteres ou certos caracteres de posição usando um recurso poderoso

Pode ser doloroso para você lembrar várias fórmulas, remover caracteres da esquerda, direita ou de uma posição específica das strings de texto, Kutools for Excel suporta um recurso poderoso - Remover por posição. Com esta pequena ferramenta, você pode realizar essas tarefas com apenas alguns cliques, sem se lembrar de nenhuma fórmula.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione as células das quais deseja remover os caracteres e clique em Kutools > Texto > Remover por posição, veja a captura de tela:

2. No Remover por posição caixa de diálogo, execute as seguintes operações:

2.1 Remova os primeiros n caracteres das células:

  • In Números caixa de texto, digite o número de caracteres que deseja remover das strings. Neste exemplo, removerei os 2 primeiros caracteres.
  • Selecionar Da esquerda opção em Posição seção.
  • Então clique Ok or Inscreva-se botão para obter o resultado conforme a imagem mostrada abaixo.

2.2 Remova os últimos n caracteres das células:

  • In Números caixa de texto, digite o número de caracteres que deseja remover das strings. Neste exemplo, removerei os últimos 3 caracteres.
  • Selecionar Da direita opção em Posição seção.
  • Então clique Ok or Inscreva-se botão para obter o resultado conforme a imagem mostrada abaixo.

2.3 Remova n caracteres da posição específica das células:

Se você precisar remover um número específico de caracteres de uma determinada posição das strings de texto, por exemplo, remover 3 caracteres a partir do terceiro caractere das strings.

  • In Números caixa de texto, digite o número de caracteres que deseja remover das strings. Neste exemplo, removerei 3 caracteres de uma determinada posição.
  • Selecionar Especificar opção e digite o número do qual deseja remover os caracteres iniciados na caixa de texto do Posição seção. Aqui, vou remover personagens do terceiro personagem.
  • Então clique Ok or Inscreva-se botão para obter o resultado conforme a imagem mostrada abaixo.

Baixe e teste grátis Kutools para Excel agora!


1.4 Remova os primeiros n e os últimos n caracteres de strings de texto com fórmula

Quando você precisa remover alguns caracteres em ambos os lados das strings de texto no Excel, pode combinar as funções MID e LEN para criar uma fórmula para lidar com essa tarefa.

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • corda: A string de texto da qual você deseja remover os caracteres;
  • caracteres_esquerdos: O número de caracteres a serem removidos da esquerda;
  • caracteres_direitos: O número de caracteres a serem removidos da direita.

Por exemplo, você precisa remover os primeiros 7 e os últimos 5 caracteres das strings de texto ao mesmo tempo. Insira a seguinte fórmula em uma célula em branco:

=MID(A4, 7+1, LEN(A4) - (7+5))

Note: Nesta fórmula: A4 é a célula da qual você deseja remover caracteres; O número 7 é o número de caracteres que você deseja remover do lado esquerdo; O número 5 é o número de caracteres que você deseja remover do lado direito.

E, em seguida, arraste a alça de preenchimento para baixo onde deseja aplicar esta fórmula, e você obterá o resultado conforme a captura de tela mostrada abaixo:


Remova caracteres indesejados / especiais de strings de texto

Ao importar dados de outro lugar para o Excel, muitos caracteres especiais ou indesejados podem ser colados em sua planilha. Para remover esses caracteres indesejados, como # @ $% ^ &, espaços, números, números não numéricos, quebras de linha, etc., esta seção fornecerá alguns métodos úteis para ajudá-lo.

2.1 Remova alguns caracteres especiais de strings de texto

Se houver alguns caracteres especiais como% ^ & * () nas sequências de texto, para remover este tipo de caracteres, você pode aplicar os três truques a seguir.

 Remova vários caracteres especiais de strings de texto com a função SUBSTITUTE

Normalmente, no Excel, você pode aninhar várias funções SUBSTITUTE para substituir cada caractere específico por nada, a sintaxe genérica é:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • string_cell: A célula contém a sequência de texto da qual você deseja remover os caracteres especiais;
  • char1, char2, char3: Os caracteres indesejados que você deseja remover.

Agora, copie ou insira a fórmula abaixo em uma célula em branco:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

Em seguida, arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, e todos os caracteres indesejados que você especificou serão removidos de uma vez, veja a captura de tela:

Tips: Se houver mais caracteres que você deseja remover, você só precisa aninhar mais funções SUBSTITUTE dentro da fórmula.


 Remova vários caracteres especiais de strings de texto com a função definida pelo usuário

As funções SUBSTITUTE aninhadas acima funcionam bem se houver alguns caracteres especiais a serem removidos, mas se você tiver dezenas de caracteres a serem removidos, a fórmula se tornará muito longa e difícil de gerenciar. Nesse caso, a seguinte Função Definida pelo Usuário pode ajudá-lo a concluir esta tarefa de forma rápida e fácil.

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: Remova vários caracteres especiais de strings de texto

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. Em seguida, feche a janela de código e volte para a planilha, insira esta fórmula = RemoveUnwantedChars (A2, $ D $ 2) em uma célula em branco onde produzir o resultado e, em seguida, arraste a alça de preenchimento para baixo para obter os resultados que você precisa, veja a captura de tela:

Note: Na fórmula acima: A2 é a célula da qual você deseja remover caracteres; $ D $ 2 contém os caracteres especiais que você gostaria de remover (você pode digitar qualquer outro caractere especial que precisar).


 Remova vários caracteres especiais de strings de texto com um recurso incrível

Se você instalou Kutools for Excel, Com o seu Remover Personagens recurso, você pode remover todos os tipos de caracteres, como caracteres numéricos, caracteres alfa, caracteres não imprimíveis ... de uma lista de células conforme necessário.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione o intervalo de células do qual deseja remover os caracteres especiais e clique em Kutools > Texto > Remover Personagens, veja a captura de tela:

2. No Remover Personagens caixa de diálogo:

  • Verifique Personalizadas opção sob o Remover Personagens seção.
  • Em seguida, insira os caracteres especiais na caixa de texto que deseja remover.
  • Então clique Ok or Inscreva-se botão para remover os caracteres que você especificou de uma vez. Veja a imagem:

Baixe e teste grátis Kutools para Excel agora!


2.2 Remova todos os números das sequências de texto

Se você tem uma lista de strings de texto que se misturam com números, letras e caracteres especiais, e agora, deseja apenas remover todos os números e manter os outros caracteres. Esta seção fornecerá algumas maneiras úteis de ajudá-lo.

 Remova os números das strings de texto com a função SUBSTITUTE

No Excel, a função SUBSTITUTE aninhada pode ajudar a substituir todos os números por nada, portanto, você pode usar a fórmula abaixo para remover todos os números das células:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

Em seguida, arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, e todos os números serão excluídos da lista de strings de texto, consulte a captura de tela:


 Remova números de strings de texto com a função TEXTJOIN

Se você tiver o Excel 2019, 2021 ou 365, a nova função TEXTJOIN também pode ajudar a remover números de strings de texto.

Copie a seguinte fórmula em uma célula em branco e pressione as teclas Ctrl + Shift + Enter juntas para obter o primeiro resultado:

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

Em seguida, copie a fórmula em outras células abaixo onde deseja aplicar esta fórmula, veja a captura de tela:

Note: Este TEXTJOIN está disponível apenas no Excel 2019, 2021 e Office 365.


 Remova números de strings de texto com função definida pelo usuário

Além das duas fórmulas acima, uma função definida pelo usuário também pode fazer um favor, siga as seguintes etapas:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remover números de strings de texto

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. Em seguida, feche e saia da janela de código, volte para a planilha e insira esta fórmula: = RemoveNumbers (A2) em uma célula em branco e arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, veja a captura de tela:


 Remova números de strings de texto com uma opção útil

Se você está cansado de fórmulas complicadas, agora, deixe-me mostrar uma ferramenta fácil - Kutools for Excel'S Remover Personagens. Com esse recurso útil, você pode realizar essa tarefa com apenas alguns cliques.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione o intervalo de células em que deseja remover os números e clique em Kutools > Texto > Remover Personagens.

2. No Remover Personagens caixa de diálogo, execute as seguintes operações:

  • Verifique Numérico opção sob o Remover Personagens seção.
  • Então clique Ok or Inscreva-se botão para remover os números imediatamente. Veja a imagem:

Baixe e teste grátis Kutools para Excel agora!


2.3 Remova os caracteres não numéricos das strings de texto

Para remover todos os caracteres não numéricos e manter apenas os números das strings de texto, esta seção falará sobre algumas maneiras de resolver essa tarefa no Excel.

 Remova caracteres não numéricos de strings de texto com fórmula no Excel 2016 e versões anteriores

Se você estiver usando o Excel 2016 ou versões anteriores, deve aplicar uma fórmula complexa para realizar este trabalho, copie ou insira a fórmula abaixo em uma célula em branco:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

Em seguida, copie a fórmula em outras células abaixo onde deseja aplicar esta fórmula, veja a captura de tela:

Note: Se os números em uma string de texto começarem com 0, o 0 será perdido.


 Remova caracteres não numéricos de strings de texto com a função TEXTJOIN no Excel 2019, 2021, 365

A fórmula acima pode ser muito difícil de entender para a maioria de nós. Se você tem Excel 2019, 2021 ou 365, existe uma fórmula bacana que pode ajudá-lo.

Copie ou insira a seguinte fórmula em uma célula em branco e pressione Ctrl + Shift + Enter juntas para obter o primeiro resultado correto:

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

Em seguida, arraste a alça de preenchimento para baixo até as células onde você aplicará esta fórmula, e você obterá o resultado conforme a imagem mostrada abaixo:

Note: Com esta fórmula, você pode ver que os zeros iniciais serão mantidos, já que os números são retornados como texto.


 Remova caracteres não numéricos de strings de texto com função definida pelo usuário

Claro, você também pode criar sua própria função definida pelo usuário com uma sintaxe mais simples, faça o seguinte:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remova caracteres não numéricos de strings de texto

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. Em seguida, feche e saia da janela de código, volte para a planilha e insira esta fórmula: = Removenonnumeric (A2) em uma célula em branco e, em seguida, arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, apenas os números serão extraídos, conforme a captura de tela mostrada abaixo:


 Remova caracteres não numéricos de strings de texto com um recurso simples

Para excluir caracteres não numéricos diretamente em um intervalo de células, Kutools for Excel'S Remover Personagens utilitário pode fazer isso com apenas alguns cliques.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione o intervalo de células do qual deseja remover caracteres não numéricos e clique em Kutools > Texto > Remover Personagens.

2. No Remover Personagens caixa de diálogo, defina as seguintes operações:

  • Verifique Não numérico opção sob o Remover Personagens seção.
  • Então clique Ok or Inscreva-se botão para remover todos os caracteres não numéricos imediatamente. Veja a imagem:

Baixe e teste grátis Kutools para Excel agora!


2.4 Separe o texto e os números de uma célula em duas colunas

Às vezes, você pode querer extrair o texto e os números das sequências de texto em duas colunas separadas; com a ajuda dos métodos a seguir, você pode concluir essa tarefa de forma rápida e fácil.

 Separe o texto e os números de uma célula em duas colunas com a função definida pelo usuário

Usando a seguinte Função Definida pelo Usuário, você pode extrair o texto e os números de uma vez, siga as etapas abaixo:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: separe o texto e os números das sequências de texto em duas colunas

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. Em seguida, feche e saia da janela de código, volte para a planilha e insira esta fórmula: = SplitText (A2, FALSE) em uma célula em branco e, em seguida, arraste a alça de preenchimento para baixo até as células que deseja preencher esta fórmula para obter todo o texto, consulte a captura de tela:

4. E então, continue digitando esta fórmula: = SplitText (A2, TRUE) em outra célula e arraste a alça de preenchimento para baixo até as células que deseja preencher nesta fórmula para obter os números, consulte a captura de tela:


 Separe o texto e os números de uma célula em duas colunas com um recurso fácil

Se você tem Kutools for Excel, as TIC Dividir células utilitário pode ajudá-lo a dividir células em várias colunas ou linhas com base em quaisquer separadores, largura especificada ou texto e número.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione o intervalo de células que deseja dividir e clique em Kutools > Unir e dividir > Dividir células, veja a captura de tela:

2. No Dividir células caixa de diálogo, selecione Dividir em colunas opção sob o Formato seção e, em seguida, verifique Texto e número do Dividido por seção, veja a captura de tela:

3. Então clique Ok botão e outro Dividir células caixa de diálogo será exibida, selecione uma célula para a saída do texto e números separados e clique no botão OK botão. Agora, você pode ver que o texto e os números nas células selecionadas são divididos em duas colunas ao mesmo tempo, conforme a demonstração abaixo:

Baixe e teste grátis Kutools para Excel agora!


2.5 Remova os caracteres de quebra de linha de strings de texto

Uma quebra de linha é algo que permite que você tenha várias linhas na mesma célula no Excel. Às vezes, quando você copia dados do site ou separa o conteúdo de sua célula com Alt + Enter as teclas manualmente, você obterá as quebras de linha ou retornos de carro. Em certos casos, você pode querer excluir as quebras de linha para tornar o conteúdo da célula uma linha, conforme mostrado abaixo na captura de tela. Aqui, vou apresentar algumas maneiras de resolver essa tarefa no Excel.

 Remova os caracteres de quebra de linha de strings de texto com o recurso Localizar e Substituir

No Excel, você pode usar o Localizar e substituir recurso para remover quebras de linha, faça o seguinte:

1. Selecione o intervalo de dados do qual deseja remover as quebras de linha.

2. Então clique INÍCIO > Encontrar e selecionar > Substituir (ou pressione Ctrl + H chaves) para ir a Localizar e substituir caixa de diálogo, veja a captura de tela:

3. No estalou para fora Localizar e substituir caixa de diálogo, execute as seguintes operações:

  • Coloque o cursor no Encontre o que campo e imprensa Ctrl + J no teclado, você pode não ver nada, mas o caractere de quebra de linha foi inserido.
  • No Substitua-o por campo, deixe este campo vazio para apenas excluir as quebras de linha ou pressione o Espaço bar uma vez para substituir as quebras de linha por espaços em branco.

4. Então clique substituir tudo botão, todas as quebras de linha nas células selecionadas serão excluídas ou substituídas por espaços em branco de uma vez. Veja a imagem:


 Remova os caracteres de quebra de linha de strings de texto com a função SUBSTITUTE

Você também pode criar uma fórmula baseada nas funções SUBSTITUTE e CHAR para remover as quebras de linha das strings de texto.

Por favor, aplique a fórmula abaixo para obter o resultado:

=SUBSTITUTE(A2,CHAR(10),"")

Tips: A função SUBSTITUTE localiza e substitui o caractere CHAR (10) que representa o caractere de quebra de linha por nada. Se quiser que o resultado seja separado por vírgula e espaço, você pode usar a fórmula abaixo:

=SUBSTITUTE(A2,CHAR(10),", ")


 Remova os caracteres de quebra de linha de strings de texto com código VBA

Se você se sentir confortável usando o código VBA, aqui também fornece um código para você, execute as seguintes etapas:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remover quebras de linha de strings de texto

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá, selecione o intervalo que você deseja remover as quebras de linha, consulte a captura de tela:

4. E então, clique OK botão, todas as quebras de linha serão excluídas do intervalo de dados selecionado.


 Remova os caracteres de quebra de linha de strings de texto com uma opção inteligente

Aqui, Kutools for Excel'S Remover Personagens recurso também pode ajudá-lo a remover quebras de linha com facilidade.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione o intervalo de células em que deseja remover as quebras de linha e clique em Kutools > Texto > Remover Personagens.

2. No Remover Personagens caixa de diálogo, defina as seguintes operações:

  • Verifique Não imprimível opção sob o Remover Personagens seção.
  • Então clique Ok or Inscreva-se para remover todas as quebras de linha do intervalo de dados selecionado. Veja a imagem:

Baixe e teste grátis Kutools para Excel agora!


2.6 Remova os espaços (à esquerda, à direita, extras ou todos os espaços) das strings de texto

Copiar e colar texto de uma fonte externa em uma planilha do Excel geralmente traz alguns espaços em branco irritantes, será tedioso remover os espaços iniciais, finais ou outros espaços extras manualmente. Felizmente, o Excel oferece alguns truques fáceis para lidar com essa tarefa.

 Remova os espaços extras (à esquerda, à direita, em excesso) das strings de texto com a função TRIM

No Excel, para excluir os espaços à esquerda, à direita e extras de strings de texto, a função TRIM simples pode ajudá-lo. Esta função exclui todos os espaços, exceto os espaços simples entre as palavras.

Por favor, insira a fórmula abaixo em uma célula em branco:

=TRIM(A2)

E, em seguida, arraste a alça de preenchimento para baixo para copiar a fórmula para outras células, agora, você pode ver todos os espaços iniciais, finais e espaços extras entre as palavras são removidos de uma só vez da captura de tela:


 Remova todos os espaços das strings de texto

Se você quiser remover todos os espaços em branco das strings de texto, a seguinte função SUBSTITUTE e o recurso Localizar e Substituir podem lhe fazer um favor.

Usando a função SUBSTITUTE

Você pode usar a função SUBSTITUTE para substituir todos os espaços por nada, aplique a fórmula abaixo em uma célula em branco:

=SUBSTITUTE(A2," ","")

Em seguida, arraste a alça de preenchimento para baixo para copiar esta fórmula para outras células de que você precisa, e todos os espaços serão excluídos conforme mostrado abaixo:


Usando o recurso Localizar e Substituir

Na verdade, o Encontrar e substituir recurso no Excel também pode ajudar a eliminar todos os espaços das células selecionadas, siga estas etapas:

1. Selecione o intervalo de dados do qual você deseja remover todos os espaços.

2. Então clique INÍCIO > Encontrar e selecionar > Substituir (ou pressione Ctrl + H chaves) para ir para o Localizar e substituir caixa de diálogo, no aberto Localizar e substituir caixa de diálogo, faça as operações abaixo:

  • Press Barra de espaço no Encontre o que campo;
  • No Substitua-o por campo, deixe este campo vazio.

3. E então, clique substituir tudo botão, todos os espaços em branco nas células selecionadas serão excluídos de uma vez. Veja a imagem:


 Remova todos os tipos de espaços de strings de texto com um recurso poderoso

Kutools for Excel tem um recurso poderoso - Remover Espaços, com este utilitário, você não só pode remover espaços à esquerda, espaços à direita, espaços em excesso, mas também todos os espaços de intervalos selecionados em uma caixa de diálogo, o que aumentará sua produtividade no trabalho.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Selecione o intervalo de dados do qual você removerá os espaços e clique em Kutools > Texto > Remover Espaços. Veja a imagem:

2. No Remover Espaços caixa de diálogo, selecione um tipo de espaço que deseja remover da Tipo de Espaços:

  • Remova os espaços iniciais, selecione o Espaços importantes opção;
  • Remova os espaços à direita, selecione o Espaços desnecessários à direita do texto opção;
  • Remova os espaços iniciais e finais de uma vez, selecione o Espaços principais e finais opção;
  • Remova todos os espaços extras, selecione o Todos os espaços excedentes opção;
  • Remova todos os espaços, selecione o Todos os espaços opção.

3. Então clique Ok or Inscreva-se botão, você obterá o resultado de que precisa.

Baixe e teste grátis Kutools para Excel agora!


Remova os caracteres / texto antes ou depois do caractere específico

Nesta seção, introduzirei algumas operações para remover o texto ou caracteres antes ou depois da primeira, última ou enésima ocorrência de um caractere específico.

3.1 Remova o texto antes ou depois do primeiro caractere específico

Se você quiser remover o texto antes ou depois do primeiro caractere específico, como espaço, vírgula de uma lista de strings de texto como a imagem abaixo mostrada, aqui postarei dois métodos para você.

 Remova o texto antes do primeiro caractere específico com uma fórmula

Para remover texto ou caracteres antes do primeiro caractere específico, você pode criar uma fórmula baseada nas funções RIGHT, LEN e FIND, a sintaxe genérica é:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • célula: A referência de célula ou sequência de texto da qual você deseja remover o texto;
  • carbonizar: O separador específico no qual você deseja remover o texto.

Por exemplo, para remover tudo antes da primeira vírgula das strings da lista, você deve aplicar a seguinte fórmula em uma célula em branco e, em seguida, arrastá-la para as células de que precisa, veja a captura de tela:

=RIGHT(A2,LEN(A2)-FIND(",",A2))

Note: Na fórmula acima: A2 é a célula da qual você deseja remover o texto; , é o caractere específico no qual você deseja remover o texto, você pode alterá-lo para qualquer outro caractere conforme necessário.


 Remova o texto após o primeiro caractere específico com uma fórmula

Para remover tudo após o primeiro caractere específico, você pode usar as funções LEFT e FIND para obter o resultado, a sintaxe genérica é:

=LEFT(cell,FIND("char",cell)-1)
  • célula: A referência de célula ou sequência de texto da qual você deseja remover o texto;
  • carbonizar: O separador específico no qual você deseja remover o texto.

Agora, insira a fórmula abaixo em uma célula em branco e arraste a alça de preenchimento para outras células onde deseja aplicar esta fórmula, e todos os caracteres após a primeira vírgula serão removidos de uma vez, veja a captura de tela:

=LEFT(A2,FIND(",",A2)-1)


3.2 Remova o texto antes ou depois da enésima ocorrência de um caractere

Às vezes, as sequências de texto contêm várias instâncias de um delimitador específico, você pode querer remover todos os caracteres antes ou depois de uma instância específica, como o segundo, terceiro ou quarto, conforme necessário. Para lidar com esse tipo de remoção, você pode usar os seguintes truques:

 Remova o texto antes da enésima ocorrência de um caractere com uma fórmula

Para remover o texto antes da enésima ocorrência de um caractere específico, a seguinte fórmula pode ajudá-lo, a sintaxe genérica é:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • célula: A referência de célula ou sequência de texto da qual você deseja remover o texto;
  • carbonizar: O separador específico no qual você deseja remover o texto;
  • N: A ocorrência do personagem antes da qual o texto deve ser removido.

Por exemplo, para remover tudo antes da segunda vírgula das strings de texto, você deve aplicar a fórmula abaixo:

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

Note: Na fórmula acima: A2 é a célula da qual você deseja remover o texto; , é o caractere específico no qual deseja remover o texto, você pode alterá-lo para qualquer outro caractere conforme necessário; 2 indica a enésima vírgula antes da qual você deseja remover o texto.

Em seguida, arraste a alça de preenchimento para copiar a fórmula para outras células, veja a captura de tela:


 Remova o texto após a enésima ocorrência de um caractere com uma fórmula

Para remover o texto após a enésima ocorrência de um separador específico, as funções LEFT, SUBSTITUTE e FIND podem lhe fazer um favor. A sintaxe genérica é:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • célula: A referência de célula ou sequência de texto da qual você deseja remover o texto;
  • carbonizar: O separador específico no qual você deseja remover o texto;
  • N: A ocorrência do personagem após a qual remover o texto.

Depois de entender a sintaxe básica, copie ou insira a fórmula abaixo em uma célula em branco:

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

Note: Na fórmula acima: A2 é a célula da qual você deseja remover o texto; , é o caractere específico no qual deseja remover o texto, você pode alterá-lo para qualquer outro caractere conforme necessário; 2 indica a enésima vírgula após a qual você deseja remover o texto.

Em seguida, arraste a alça de preenchimento para copiar a fórmula para outras células, e todos os caracteres após a segunda vírgula serão excluídos de uma vez, veja a captura de tela:


 Remova o texto antes ou depois da enésima ocorrência de um caractere com a função definida pelo usuário

Como você pode ver, você pode resolver os casos de remoção de texto antes ou depois da enésima ocorrência de um caractere usando as funções nativas do Excel em diferentes combinações. O problema é que você precisa se lembrar dessas fórmulas complicadas. Nesse caso, criarei uma função definida pelo usuário para cobrir todos os cenários, faça o seguinte:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: Remova o texto antes ou depois da enésima ocorrência de um caractere

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Em seguida, feche e saia da janela de código, volte para a planilha, use as seguintes fórmulas:

Remova o texto antes da segunda ocorrência de uma vírgula:

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

Remova o texto após a segunda ocorrência de uma vírgula

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


3.3 Remova o texto antes ou depois da última ocorrência de um caractere

Se você precisar remover todo o texto antes ou depois do último caractere específico e apenas deixar as substrings depois ou antes do último caractere específico, como mostrado na captura de tela abaixo, esta seção falará sobre algumas fórmulas para resolver esse problema.

 Remova o texto antes da última ocorrência de um caractere com uma fórmula

Para remover todos os caracteres antes da última ocorrência de um caractere, a sintaxe genérica é:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • célula: A referência de célula ou sequência de texto da qual você deseja remover o texto;
  • carbonizar: O separador específico no qual você deseja remover o texto;

Agora, se você precisar remover o texto antes da última ocorrência de uma vírgula, copie ou insira a fórmula abaixo em uma célula em branco:

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

Note: Na fórmula acima: A2 é a célula da qual você deseja remover o texto; , é o caractere específico no qual você deseja remover o texto, você pode alterá-lo para qualquer outro caractere conforme necessário.

Em seguida, arraste a alça de preenchimento para copiar a fórmula para outras células, e todos os caracteres antes da última vírgula serão excluídos como mostrado abaixo na captura de tela:


 Remova o texto após a última ocorrência de um caractere com fórmulas

Se os valores das células são separados por um número variável de delimitadores, agora, você deseja excluir tudo após a última instância desse delimitador, a sintaxe genérica é:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • célula: A referência de célula ou sequência de texto da qual você deseja remover o texto;
  • carbonizar: O separador específico no qual você deseja remover o texto;

Copie ou insira a fórmula abaixo em uma célula em branco e arraste a alça de preenchimento para baixo para obter outros resultados de que você precisa, veja a captura de tela:

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

Note: Na fórmula acima: A2 é a célula da qual você deseja remover o texto; , é o caractere específico no qual você deseja remover o texto, você pode alterá-lo para qualquer outro caractere conforme necessário.


3.4 Remova o texto entre parênteses

Se você tem uma lista de strings de texto com parte dos caracteres entre parênteses, agora, você pode querer remover todos os caracteres dentro dos parênteses, incluindo os próprios parênteses como mostrado abaixo na captura de tela. Esta seção falará sobre alguns truques para resolver essa tarefa no Excel.

 Remova o texto entre parênteses com o recurso Localizar e Substituir

No Excel, o recurso interno Localizar e Substituir pode ajudá-lo a localizar todos os textos entre parênteses e, em seguida, substituí-los por nada. Por favor, faça o seguinte:

1. Selecione a lista de dados da qual deseja remover os textos entre parênteses.

2. Então clique INÍCIO > Encontrar e selecionar > Substituir (ou pressione Ctrl + H ) para ir para a caixa de diálogo Localizar e Substituir, no Localizar e substituir caixa de diálogo, faça as seguintes operações:

  • No Encontre o que tipo de campo (*) na caixa de texto;
  • No Substitua-o por campo, deixe este campo vazio.

3. Então clique substituir tudo botão, todos os caracteres entre parênteses (incluindo os parênteses) nas células selecionadas serão excluídos de uma vez. Veja a imagem:

Tips: O Localizar e substituir recurso também funciona para dois ou mais pares de parênteses dentro das sequências de texto.


 Remova o texto entre parênteses com a fórmula

Além do recurso Localizar e Substituir, você também pode usar uma fórmula para resolver essa tarefa no Excel, a sintaxe genérica é:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • texto: A string de texto ou referência de célula da qual você deseja remover os caracteres.

Agora, copie ou insira a seguinte fórmula em uma célula em branco onde deseja obter o resultado:

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

Em seguida, arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, e todos os textos entre parênteses, incluindo os parênteses, serão removidos de uma vez, veja a captura de tela:

Tips: Se não houver parênteses no valor da célula, um erro será exibido após a aplicação da fórmula acima, para ignorar o erro, use a fórmula abaixo:

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 Remova o texto entre parênteses com a função definida pelo usuário

A fórmula acima funciona bem para remover texto de um par de parênteses; se você precisar remover os textos de vários par de parênteses dentro das strings de texto, a fórmula não funcionará corretamente. Aqui, criarei uma função definida pelo usuário simples para resolver essa tarefa.

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remova o texto entre parênteses

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. Em seguida, volte para a planilha e insira esta fórmula em uma célula em branco: = remtxt (A2)e, em seguida, arraste a alça de preenchimento para baixo até as células onde deseja aplicar esta fórmula, todos os textos dentro de todos os parênteses, incluindo os parênteses, serão removidos conforme a captura de tela mostrada abaixo:


Remover palavras de strings de texto

Em certos casos, você pode querer remover algumas palavras de uma lista de células, como primeira ou última palavra, duplicar palavras de uma célula. Para resolver esses tipos de remoção, esta seção apresentará alguns métodos para você.

4.1 Remover a primeira ou última palavra da string de texto

Para remover a primeira ou a última palavra de uma lista de strings de texto, as fórmulas a seguir podem lhe ajudar.

 Remova a primeira palavra da string de texto com a fórmula

Remova as primeiras palavras de uma lista de strings de texto, você pode criar uma fórmula simples com base nas funções RIGHT, LEN e FIND, a sintaxe genérica é:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • texto: A string de texto ou referência de célula da qual você deseja remover a primeira palavra.

Agora, insira ou copie a seguinte fórmula em uma célula em branco:

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

Em seguida, arraste a alça de preenchimento para baixo para aplicar a fórmula a outras células, veja a captura de tela:

Tips: Se você precisar remover as primeiras N palavras das células, use a fórmula abaixo:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • texto: A string de texto ou referência de célula da qual você deseja remover as primeiras n palavras;
  • N: Indica quantas palavras você deseja remover do início da sequência de texto.

Por exemplo, para remover as duas primeiras palavras das células, copie ou insira a fórmula abaixo em uma célula em branco para obter o resultado que você precisa, veja a captura de tela:

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


  Remova a última palavra da string de texto com a fórmula

Para remover a última palavra das strings de texto, você também pode usar uma fórmula para resolver esta tarefa, a sintaxe genérica é:

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • texto: A string de texto ou referência de célula da qual você deseja remover a última palavra;

Use a fórmula abaixo em uma célula em branco e arraste a alça de preenchimento para baixo para aplicar a fórmula a outras células, veja a captura de tela:

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

Tips: Para remover as últimas N palavras de uma lista de células, a sintaxe genérica é:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • texto: A string de texto ou referência de célula da qual você deseja remover as últimas n palavras;
  • N: Indica o número de palavras que você deseja remover do final da sequência de texto.

Supondo que, para excluir as últimas 3 palavras de uma lista de células, use a fórmula abaixo para retornar o resultado, veja a captura de tela:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


4.2 Remova caracteres ou palavras duplicados dentro de uma célula

Ao remover valores ou linhas duplicados, o Excel oferece algumas opções diferentes, mas, quando se trata de remover alguns caracteres ou palavras duplicados em uma determinada célula, pode não haver nenhum bom recurso interno para resolvê-lo. Neste caso, esta seção ajudará a criar algumas Funções Definidas pelo Usuário para lidar com este quebra-cabeça.

 Remova caracteres duplicados dentro de uma célula usando a função definida pelo usuário

Se você tiver várias ocorrências do mesmo caractere em uma célula, para remover os caracteres duplicados dentro de uma célula e manter apenas as primeiras ocorrências conforme a captura de tela mostrada abaixo, você pode usar a seguinte Função Definida pelo Usuário.

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remova caracteres duplicados dentro de uma célula

Function RemoveDupeschars(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
RemoveDupeschars = xOutValue
End Function

3. Em seguida, feche a janela de código, volte para a planilha e insira esta fórmula = RemoveDupeschars (A2) em uma célula em branco ao lado de seus dados e, em seguida, arraste a alça de preenchimento até as células às quais deseja aplicar esta fórmula, veja a captura de tela:

NoteA2 é a célula de dados da qual você deseja remover caracteres duplicados.

Dica: A função diferencia maiúsculas de minúsculas, portanto trata as letras maiúsculas e minúsculas como caracteres diferentes.


 Remova palavras duplicadas dentro de uma célula usando a função definida pelo usuário

Supondo que você tenha as mesmas palavras ou strings de texto em uma célula e gostaria de remover todas as mesmas palavras da célula, como mostrado na imagem abaixo. Você pode usar a seguinte Função Definida pelo Usuário para resolver esta tarefa no Excel.

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: remova palavras duplicadas dentro de uma célula

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    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 RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. Em seguida, feche a janela de código, volte para a planilha e insira esta fórmula = RemoveDupeswords (A2, ",") em uma célula em branco ao lado de seus dados e, em seguida, arraste a alça de preenchimento até as células às quais deseja aplicar esta fórmula, veja a captura de tela:

Note: A2 é a célula da qual você deseja excluir as palavras duplicadas, e a vírgula e o espaço (, ) são os delimitadores para separar as sequências de texto, você pode alterá-los para quaisquer outros delimitadores de acordo com suas necessidades.

Dica: Esta função não faz distinção entre maiúsculas e minúsculas, letras maiúsculas e minúsculas são tratadas como os mesmos caracteres.


4.3 Cortar string de texto para N palavras

Se você tem uma longa string de texto em uma célula, às vezes, você pode querer cortar a string de texto para um certo número de palavras, o que significa manter apenas as primeiras n palavras e cortar as palavras restantes. Esta seção falará sobre alguns truques para ajudá-lo a realizar esse trabalho no Excel.

 Corte a string de texto para N palavras com fórmula

Para cortar uma string de texto em N palavras, você pode criar uma fórmula baseada nas funções LEFT, FIND e SUBSTITUTE, a sintaxe genérica é:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • texto: A string de texto ou referência de célula que você deseja cortar;
  • N: O número de palavras que você deseja manter do lado esquerdo da string de texto fornecida.

Para lidar com este trabalho, copie ou insira a fórmula abaixo em uma célula em branco:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

Em seguida, arraste a alça de preenchimento para baixo para aplicar esta fórmula a outras células, veja a captura de tela:


 Corte a string de texto para N palavras com a função definida pelo usuário

Exceto a fórmula acima, você também pode criar uma Função Definida pelo Usuário para resolver esta tarefa, faça o seguinte:

1. Segure o Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: corte a string de texto em N palavras

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. Em seguida, feche e saia da janela de código, volte para a planilha e insira esta fórmula: = GetNWords (A2, B2) em uma célula em branco e, em seguida, arraste a alça de preenchimento para baixo para aplicar esta fórmula a outras células, apenas o primeiro número específico de palavras é mantido conforme a captura de tela mostrada abaixo:


  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...
guia kte 201905
  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations