Excel: Excluir Caracteres Específicos, palavras, números de cadeias de texto

Se tiver uma lista de cadeias de texto no Excel com caracteres, números ou símbolos indesejados, poderá precisar de remover determinados elementos com base na sua posição ou tipo. Quer pretenda aparar caracteres à esquerda, à direita ou no meio, ou eliminar caracteres e números específicos, o Excel oferece várias formas eficazes de limpar os seus dados. Este tutorial apresenta métodos passo a passo — utilizando fórmulas, Funções Definidas pelo Utilizador (UDFs) e funcionalidades incorporadas — para remover facilmente caracteres, palavras e números indesejados das suas cadeias de texto.

Excluir Caracteres Específicos da esquerda, direita ou meio das cadeias de texto

Remover alguns caracteres do início, fim ou meio de cadeias de texto nas folhas de cálculo do Excel é uma tarefa comum para a maioria de nós. Esta secção apresenta truques rápidos e simples para resolver esse desafio com facilidade.

1,1 Remover os primeiros n caracteres das cadeias de texto

Se precisar de remover os primeiros n caracteres de uma lista de cadeias de texto, os métodos seguintes poderão ajudá-lo.

Ao utilizar fórmulas

Normalmente, para remover caracteres do início de cadeias de texto, pode utilizar a função SUBSTITUIR ou uma combinação das funções DIREITA e NÚM.CARACT.

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

• «cadeia»: A cadeia de texto da qual pretende Excluir Caracteres Específicos;
• «num_caracteres»: O número de caracteres que deseja remover.

Por exemplo, para remover os primeiros 2 caracteres das células, utilize a fórmula abaixo e, em seguida, arraste a alça de preenchimento para aplicá-la às demais células. Veja a imagem:

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

Funções DIREITA e NÚM.CARACT para remover os primeiros N caracteres:

• «cadeia»: A cadeia de texto da qual pretende Excluir Caracteres Específicos;
• «num_caracteres»: O número de caracteres que deseja remover.

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

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

Ao utilizar uma Função Definida pelo Utilizador

Para remover os primeiros N caracteres das células, pode também criar uma Função Definida pelo Utilizador para resolver esta tarefa. Siga estes passos:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover os primeiros n caracteres das cadeias de texto

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

3. Volte à folha de cálculo e introduza a fórmula «=removefirstx(A4;2)» numa célula vazia. Depois, arraste a alça de preenchimento para baixo para obter os resultados pretendidos. Veja a imagem:

Nota: Nesta fórmula, «A4» é a célula da qual pretende excluir caracteres especiais; o número «2» indica quantos caracteres serão removidos do início da cadeia de texto.

1,2 Remover os últimos n caracteres das cadeias de texto

Para remover um número específico de caracteres do lado direito das cadeias de texto, pode também recorrer a uma fórmula ou a uma Função Definida pelo Utilizador.

Utilizando uma fórmula

Para remover os últimos n caracteres de cadeias de texto, utilize uma fórmula com base nas funções ESQUERDA e NÚM.CARACT.

Funções ESQUERDA e NÚM.CARACT para remover os últimos N caracteres:

• «cadeia»: A cadeia de texto da qual pretende Excluir Caracteres Específicos;
• «num_caracteres»: O número de caracteres que deseja remover.

Para remover os 3 últimos caracteres das cadeias de texto, utilize esta fórmula e, em seguida, arraste a alça de preenchimento para aplicá-la às outras células. Veja a imagem:

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

Ao utilizar uma Função Definida pelo Utilizador

Uma Função Definida pelo Utilizador também pode ajudá-lo a remover os últimos N caracteres de uma lista de células. Siga estes passos:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover os últimos n caracteres das cadeias de texto

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

3. Volte à folha de cálculo e introduza a fórmula «=removelastx(A4;3)» numa célula vazia. Depois, arraste a alça de preenchimento para baixo e obtenha os resultados pretendidos. Veja a imagem:

Nota: Nesta fórmula, «A4» é a célula da qual pretende excluir caracteres especiais; o número «3» indica quantos caracteres serão removidos do final da cadeia de texto.

1,3 Remover os primeiros, últimos n caracteres ou caracteres de uma posição específica utilizando uma funcionalidade avançada

Poderá ser complicado lembrar-se de várias fórmulas para Excluir Caracteres Específicos do início, fim ou de uma posição específica das cadeias de texto. O «Kutools para Excel» oferece uma funcionalidade avançada – «Remover caracteres de uma posição». Com esta ferramenta, pode realizar estas tarefas com poucos cliques, sem necessidade de memorizar fórmulas.

1. Selecione as células nas quais pretende eliminar caracteres específicos e clique em «Kutools» > «Texto» > «Remover caracteres de uma posição». Veja a imagem:

2. Na caixa de diálogo «Remover caracteres de uma posição», realize as seguintes operações:

2,1 Remover os primeiros n caracteres das células:

• Na caixa de texto «Números», introduza o número de caracteres que pretende remover das cadeias. Neste exemplo, serão removidos os primeiros 2 caracteres.
• Selecione a opção «Do início» na secção «Posição».
• Em seguida, clique no botão «OK» ou «Aplicar» para obter o resultado, conforme ilustrado na imagem seguinte.

2,2 Remover os últimos n caracteres das células:

• Na caixa de texto «Números», introduza o número de caracteres que pretende remover das cadeias. Neste exemplo, serão removidos os últimos 3 caracteres.
• Selecione a opção «Do fim» na secção «Posição».
• Em seguida, clique no botão «OK» ou «Aplicar» para obter o resultado, conforme ilustrado na imagem seguinte.

2,3 Remover n caracteres de uma posição específica das células:

Se precisar de remover um número específico de caracteres a partir de uma determinada posição nas cadeias de texto — por exemplo, eliminar 3 caracteres a partir do terceiro caractere —, esta funcionalidade permite-lhe fazê-lo com facilidade.

• Na caixa de texto «Números», introduza o número de caracteres que pretende remover das cadeias. Neste exemplo, serão removidos 3 caracteres a partir de uma determinada posição.
• Selecione a opção «Especificar» e introduza o número a partir do qual pretende que a exclusão de caracteres especiais comece, na caixa de texto da secção «Posição». Neste caso, os caracteres especiais serão excluídos a partir do terceiro carácter.
• De seguida, clique no botão «OK» ou «Aplicar» para obter o resultado apresentado na imagem seguinte.

1,4 Remover simultaneamente os primeiros n e os últimos n caracteres de cadeias de texto com fórmula

Quando precisar de remover caracteres de ambos os lados das cadeias de texto no Excel, basta combinar as funções MID e LEN para criar uma fórmula que execute esta tarefa com facilidade.

• «string»: A cadeia de texto da qual pretende Excluir Caracteres Específicos;
• «left_chars»: O número de caracteres a remover à esquerda;
• «right_chars»: O número de caracteres a remover à direita.

Por exemplo, se precisar de remover simultaneamente os primeiros 7 caracteres e os últimos 5 caracteres das cadeias de texto, introduza a seguinte fórmula numa célula vazia:

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

Nota: Nesta fórmula, "A4" é a célula da qual pretende eliminar caracteres especiais; o número "7" indica quantos caracteres remover do lado esquerdo e o número "5" indica quantos remover do lado direito.

De seguida, arraste a alça de preenchimento para baixo até onde pretender aplicar esta fórmula e obterá o resultado conforme mostrado na imagem seguinte:

Remover caracteres indesejados / especiais de cadeias de texto

Ao importar dados de outra origem para o Excel, é comum que caracteres especiais ou indesejados — como #@$%^&, espaços, números, caracteres não numéricos, quebras de linha, entre outros — sejam colados na sua folha de cálculo. Esta secção apresenta métodos úteis para os remover de forma eficaz.

2,1 Remover alguns caracteres especiais de cadeias de texto

Se existirem caracteres especiais, como %^&*(), nas cadeias de texto, pode remover este tipo de caracteres utilizando os três truques seguintes.

Remover vários caracteres especiais de cadeias de texto com a função SUBSTITUIR

Normalmente, no Excel, pode aninhar várias funções SUBSTITUIR para substituir cada caractere específico por nada. A sintaxe genérica é:

• «string_cell»: A célula que contém a cadeia de texto da qual pretende remover caracteres especiais;
• «char1, char2, char3»: Os caracteres indesejados que deseja remover.

Agora, copie ou introduza a fórmula seguinte numa célula vazia:

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

De seguida, arraste a alça de preenchimento para as células onde pretender aplicar esta fórmula e todos os caracteres indesejados que especificou serão removidos de imediato, conforme ilustrado na imagem:

Dica: Se precisar remover mais caracteres, basta aninhar funções SUBSTITUTE adicionais na fórmula.

Remover múltiplos caracteres especiais de cadeias de texto com uma Função Definida pelo Utilizador

As funções SUBSTITUTE aninhadas acima funcionam bem quando há apenas alguns caracteres especiais a remover. No entanto, se precisar de eliminar dezenas de caracteres, a fórmula pode tornar-se excessivamente longa e difícil de gerir. Nesse caso, a seguinte Função Definida pelo Utilizador permite-lhe concluir esta tarefa de forma rápida e fácil.

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover múltiplos caracteres especiais de cadeias 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 regresse à folha de cálculo. Insira a fórmula «=RemoveUnwantedChars(A2; $D$2)» numa célula vazia para obter o resultado e, depois, arraste a alça de preenchimento para baixo até obter todos os resultados pretendidos, conforme ilustrado na imagem:

Nota: Na fórmula acima, «A2» é a célula da qual pretende eliminar caracteres especiais; «$D$2» contém os caracteres especiais que deseja remover (pode introduzir quaisquer outros caracteres especiais necessários).

Remover múltiplos caracteres especiais de cadeias de texto ao utilizar uma funcionalidade surpreendente

Se tiver o «Kutools para Excel» instalado, com a sua funcionalidade «Excluir Caracteres Específicos», poderá remover facilmente todo o tipo de caracteres — como numéricos, alfabéticos ou não imprimíveis — de uma lista de células, conforme as suas necessidades.

1. Selecione o intervalo de células do qual pretende remover caracteres especiais e, em seguida, clique em **«Kutools» > «Texto» > «Excluir Caracteres Específicos»**, conforme ilustrado na imagem:

2. Na caixa de diálogo «Excluir Caracteres Específicos»:

• Marque a opção «Personalizado» na secção «Excluir Caracteres Específicos».
• Em seguida, introduza na caixa de texto os caracteres especiais que pretende remover.
• Depois, clique no botão «OK» ou «Aplicar» para remover de imediato os caracteres especificados. Veja a imagem:

2,2 Remover todos os números de cadeias de texto

Se tiver uma lista de cadeias de texto que combinem números, letras e caracteres especiais e quiser remover apenas os números, mantendo todos os outros caracteres, esta secção apresenta soluções práticas que o poderão ajudar.

Remover números de cadeias de texto com a função SUBSTITUIR

No Excel, a função SUBSTITUTE aninhada permite substituir todos os números por nada. Assim, pode utilizar a fórmula seguinte 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,"")

De seguida, arraste a alça de preenchimento para as células onde pretender aplicar esta fórmula e todos os números serão eliminados da lista de cadeias de texto, conforme ilustrado na imagem:

Remover números de cadeias de texto com a função TEXTOJUNTAR

Se tiver o Excel 2019, 2021 ou 365, a função TEXTOJUNTAR também pode ajudar a remover números de cadeias de texto.

Copie a fórmula seguinte para uma célula vazia e, em seguida, prima as teclas Ctrl + Shift + Enter em simultâneo 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), ""))

De seguida, copie a fórmula para as outras células abaixo onde pretender aplicá-la, conforme ilustrado na imagem:

Nota: A função TEXTJOIN está disponível apenas no Excel 2019, 2021 e Office 365.

Remover números de cadeias de texto com uma Função Definida pelo Utilizador

Além das duas fórmulas acima, uma Função Definida pelo Utilizador também pode revelar-se útil. Siga estes passos:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover números de cadeias 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, regresse à folha de cálculo e introduza a fórmula =RemoveNumbers(A2) numa célula vazia. Depois, arraste a alça de preenchimento para as células em que pretende aplicar esta fórmula, conforme ilustrado na imagem:

Remover números de cadeias de texto com uma opção útil

Se estiver farto das fórmulas complicadas, deixe-me mostrar-lhe uma ferramenta simples – a funcionalidade «Kutools para Excel» do «Excluir Caracteres Específicos». Com esta funcionalidade prática, pode realizar esta tarefa com apenas alguns cliques.

1. Selecione o intervalo de células do qual pretende remover números e, em seguida, clique em «Kutools» > «Texto» > «Excluir Caracteres Específicos».

2. Na caixa de diálogo «Excluir Caracteres Específicos», realize as seguintes operações:

• Marque a opção «Numérico» na secção «Excluir Caracteres Específicos».
• De seguida, clique no botão «OK» ou «Aplicar» para remover os números imediatamente. Veja a imagem:

2,3 Remover caracteres não numéricos de cadeias de texto

Para remover todos os caracteres não numéricos e manter apenas os números nas cadeias de texto, esta secção apresenta várias formas de realizar esta tarefa no Excel.

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

Se estiver a utilizar o Excel 2016 ou versões anteriores, terá de aplicar uma fórmula complexa para realizar esta tarefa. Copie ou introduza a seguinte fórmula numa célula vazia:

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

De seguida, copie a fórmula para as outras células abaixo onde pretender aplicá-la, conforme ilustrado na imagem:

Nota: Se os números numa cadeia de texto começarem por 0, esse zero será perdido.

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

A fórmula acima pode ser demasiado complexa para a maioria de nós. Se tiver o Excel 2019, 2021 ou 365, existe uma fórmula mais simples que o pode ajudar.

Copie ou introduza a fórmula seguinte numa célula vazia e prima as teclas «Ctrl + Shift + Enter» em simultâneo para obter o primeiro resultado correto:

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

De seguida, arraste a alça de preenchimento para as células onde pretender aplicar esta fórmula e obterá o resultado conforme ilustrado na imagem seguinte:

Nota: Com esta fórmula, pode confirmar que os zeros à esquerda são preservados, já que os números são devolvidos em formato de texto.

Remover caracteres não numéricos de cadeias de texto com uma Função Definida pelo Utilizador

Obviamente, também pode criar a sua própria Função Definida pelo Utilizador com uma sintaxe mais simples. Basta seguir estes passos:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover caracteres não numéricos de cadeias 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, regresse à folha de cálculo e introduza a fórmula =Removenonnumeric(A2) numa célula vazia. Depois, arraste a alça de preenchimento para as células em que pretende aplicar esta fórmula — apenas os números serão extraídos, conforme ilustrado na imagem seguinte:

Remover caracteres não numéricos de cadeias de texto com uma funcionalidade simples

Para eliminar diretamente caracteres não numéricos num intervalo de células, a funcionalidade «Excluir Caracteres Específicos» do Kutools para Excel permite-lhe concluí-lo com apenas alguns cliques.

1. Selecione o intervalo de células do qual pretende remover caracteres não numéricos e, em seguida, clique em **Kutools** > **Texto** > **Excluir Caracteres Específicos**.

2. Na caixa de diálogo «Excluir Caracteres Específicos», configure as seguintes operações:

• Marque a opção «Não numérico» na secção «Excluir Caracteres Específicos».
• Depois, clique no botão «OK» ou «Aplicar» para remover imediatamente todos os caracteres não numéricos. Veja a imagem:

2,4 Separar Dividir por Texto e Número de uma célula em duas colunas

Por vezes, poderá querer separar texto e números de uma cadeia de caracteres em duas colunas distintas. Com os métodos seguintes, consegue realizar esta tarefa de forma rápida e fácil.

Separar Dividir por Texto e Número de uma célula em duas colunas com uma Função Definida pelo Utilizador

Ao utilizar a seguinte Função Definida pelo Utilizador, pode extrair imediatamente o texto e o número separados. Siga estes passos:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Separar Dividir por Texto e Número de cadeias 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, regresse à folha de cálculo e introduza a fórmula =SplitText(A2;FALSO) numa célula vazia. Depois, arraste a alça de preenchimento até às células onde pretende aplicar esta fórmula para obter todo o texto, conforme ilustrado na captura de ecrã:

4. Em seguida, introduza a fórmula =SplitText(A2;VERDADEIRO) noutra célula e arraste a alça de preenchimento até às células onde pretende aplicá-la para obter os números, conforme ilustrado na captura de ecrã:

Separar Dividir por Texto e Número de uma célula em duas colunas com uma funcionalidade simples

Se tiver o «Kutools para Excel», a sua funcionalidade «Dividir Células» permite-lhe dividir células em várias colunas ou linhas com base em qualquer separador, numa largura especificada ou separando texto e número.

1. Selecione o intervalo de células que pretende dividir e, em seguida, clique em **Kutools** > **Mesclar e Dividir** > **Dividir Células**, conforme ilustrado na captura de ecrã:

2. Na caixa de diálogo «Dividir Células», selecione «Dividir em Colunas» na secção «Tipo» e, de seguida, ative a opção «Dividir por Texto e Número» na secção «Dividir por», conforme mostrado na captura de ecrã:

3. Em seguida, clique no botão «OK» para abrir a caixa de diálogo «Dividir Células». Selecione uma célula onde pretende exibir o texto e o número separados e, depois, clique novamente em «OK». De imediato, verá o conteúdo dividido em duas colunas nas células selecionadas, tal como ilustrado na imagem seguinte:

2,5 Remover caracteres de quebra de linha de cadeias de texto

Uma quebra de linha permite-lhe ter várias linhas dentro da mesma célula no Excel. Por vezes, ao copiar dados de um site ou ao separar manualmente o conteúdo de uma célula com as teclas «Alt + Enter», surgem quebras de linha ou retornos de carro. Em certos casos, poderá querer eliminá-las para que o conteúdo da célula apareça numa única linha, tal como ilustrado na captura de ecrã abaixo. Apresento-lhe, de seguida, algumas formas eficazes de resolver esta tarefa no Excel.

Remover caracteres de quebra de linha de cadeias de texto com a funcionalidade Localizar e Substituir

No Excel, pode utilizar a funcionalidade «Localizar e Substituir» para remover quebras de linha. Siga estes passos:

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

2. Em seguida, clique em «Base» > «Localizar e Selecionar» > «Substituir» (ou prima as teclas «Ctrl + H») para abrir a caixa de diálogo «Localizar e Substituir», conforme ilustrado na captura de ecrã:

3. Na caixa de diálogo «Localizar e Substituir» que surge, realize as seguintes operações:

• Coloque o cursor no campo «Localizar» e prima «Ctrl + J» no teclado; poderá não ver nada, mas o caractere de quebra de linha já foi inserido.
• No campo «Substituir por», deixe-o vazio para eliminar apenas as quebras de linha ou prima a tecla «Espaço» uma vez para substituir as quebras de linha por espaços.

4. Em seguida, clique no botão «Substituir Tudo». Todas as quebras de linha nas células selecionadas serão imediatamente eliminadas ou substituídas por espaços em branco. Veja a captura de ecrã:

Remover caracteres de quebra de linha de cadeias de texto com a função SUBSTITUIR

Pode também criar uma fórmula utilizando as funções SUBSTITUIR e CAR para eliminar as quebras de linha das cadeias de texto.

Aplique a fórmula abaixo para obter o resultado:

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

Dica: A função SUBSTITUIR substitui o caractere CAR(10), que representa uma quebra de linha, por nada. Se pretender que o resultado seja separado por uma vírgula seguida de um espaço, pode utilizar a seguinte fórmula:

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

Remover caracteres de quebra de linha de cadeias de texto com código VBA

Se se sentir à vontade com a utilização de código VBA, disponibilizamos também um código especialmente para si. Siga os passos seguintes:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover quebras de linha de cadeias 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. Em seguida, prima a tecla "F5" para executar este código e surgirá uma caixa de aviso. Selecione o intervalo do qual pretende remover as quebras de linha, conforme ilustrado na captura de ecrã abaixo:

4. Depois, clique no botão «OK» e todas as quebras de linha serão removidas do intervalo Selecionar Dados.

Remover caracteres de quebra de linha de cadeias de texto com uma opção inteligente

Aqui, a funcionalidade «Excluir Caracteres Específicos» do Kutools para Excel também o ajuda a remover quebras de linha com facilidade.

1. Selecione o intervalo de células onde pretende remover as quebras de linha e, em seguida, clique em **Kutools** > **Texto** > **Excluir Caracteres Específicos**.

2. Na caixa de diálogo «Excluir Caracteres Específicos», efetue as seguintes definições:

• Marque a opção «Não imprimível» na secção «Excluir Caracteres Específicos».
• De seguida, clique no botão «OK» ou «Aplicar» para remover todas as quebras de linha do intervalo Selecionar Dados. Veja a imagem:

2,6 Remover Espaços (espaços iniciais, finais, extras ou todos os espaços) de cadeias de texto

Copiar e colar texto de uma fonte externa para uma folha de cálculo do Excel costuma trazer espaços em branco indesejados, cuja remoção manual é tediosa. Felizmente, o Excel oferece soluções simples para resolver esse problema.

Remover espaços extra (iniciais, finais, excessivos) de cadeias de texto com a função ESPAÇOS

No Excel, para remover espaços iniciais, finais e em excesso de cadeias de texto, a função ESPAÇO pode ajudá-lo. Ela elimina todos os espaços, exceto os únicos entre palavras.

Introduza a fórmula abaixo numa célula vazia:

=TRIM(A2)

Em seguida, arraste a alça de preenchimento para copiar a fórmula para outras células. De imediato, verá que todos os espaços iniciais, finais e extras entre as palavras foram removidos, conforme ilustrado na captura de ecrã:

Remover todos os espaços de cadeias de texto

Se pretender eliminar todos os espaços em branco das suas cadeias de texto, a função SUBSTITUIR e a funcionalidade Localizar e Substituir estão aqui para o ajudar.

Utilizando a função SUBSTITUIR

Pode utilizar a função SUBSTITUIR para eliminar todos os espaços, substituindo-os por nada. Aplique a fórmula abaixo numa célula vazia:

=SUBSTITUTE(A2," ","") 

Em seguida, arraste a alça de preenchimento para copiar esta fórmula para as outras células necessárias e todos os espaços serão eliminados, conforme ilustrado na captura de ecrã seguinte:

Utilizando a funcionalidade Localizar e Substituir

Na verdade, a funcionalidade «Localizar e Substituir» do Excel também o pode ajudar a remover todos os espaços das células selecionadas. Siga os passos seguintes:

1. Selecione o intervalo de dados do qual pretende remover todos os espaços.

2. Em seguida, clique em «Base» > «Localizar e Selecionar» > «Substituir» (ou prima Ctrl + H) para abrir a caixa de diálogo «Localizar e Substituir». Na caixa de diálogo aberta, realize as seguintes operações:

• Prima a barra «Espaço» no campo «Localizar»;
• No campo «Substituir por», deixe-o em branco.

3. Em seguida, clique no botão «Substituir Tudo» e todos os espaços em branco nas células selecionadas serão removidos imediatamente. Veja a captura de ecrã:

Remover todos os tipos de espaços de cadeias de texto com uma funcionalidade poderosa

O Kutools para Excel oferece uma funcionalidade poderosa: **Remover Espaços**. Com esta ferramenta, pode eliminar não só espaços à esquerda, à direita e em excesso, mas também todos os espaços num intervalo selecionado — tudo numa única caixa de diálogo, aumentando significativamente a produtividade do seu trabalho.

1. Selecione o intervalo de dados do qual pretende remover espaços e, em seguida, clique em «Kutools» > «Texto» > «Remover Espaços». Veja a captura de ecrã:

2. Na caixa de diálogo «Remover Espaços», selecione o tipo de espaço que pretende eliminar em «Tipo de Espaço»:

• Remova o Espaços à Frente, Por favor, selecione a opção «Espaços à Frente»;
• Remova o Espaços Atrás, Por favor, selecione a opção «Espaços Atrás»;
• Remova o Espaços à Frente e o Espaços Atrás em simultâneo, Por favor, selecione a opção «Iniciais e Espaços Atrás»;
• Remova todos os espaços extra, Por favor, selecione a opção «Todos os Espaços Extras»;
• Remova todos os espaços. Por favor, selecione a opção «Todos os espaços».

3. Em seguida, clique no botão «OK» ou «Aplicar» para obter o resultado pretendido.

Excluir Caracteres Específicos / texto antes ou depois de um caractere específico

Nesta secção, apresento algumas operações para remover texto ou caracteres antes ou depois da primeira, última ou ocorrência específica de um determinado caractere.

3,1 Remover texto antes ou depois do primeiro caractere específico

Se pretender remover o texto antes ou depois do primeiro caractere específico — como um espaço ou uma vírgula — de uma lista de cadeias de texto, tal como ilustrado na captura de ecrã abaixo, apresento-lhe aqui dois métodos.

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

Para remover texto ou caracteres antes do primeiro caractere específico, pode criar uma fórmula utilizando as funções DIREITA, NÚM.CARACT e PROCURAR. A sintaxe genérica é:

• «cell»: A referência de célula ou cadeia de texto da qual pretende remover texto;
• «char»: O separador específico com base no qual pretende remover texto.

Por exemplo, para remover tudo antes da primeira vírgula das cadeias da lista, aplique a fórmula seguinte numa célula vazia e, em seguida, arraste-a para as células necessárias, conforme ilustrado na captura de ecrã:

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

Nota: Na fórmula acima, "A2" é a célula da qual pretende remover texto; "," é o caractere específico com base no qual será feita a remoção e pode ser substituído por qualquer outro caractere, conforme necessário.

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

Para remover tudo após o primeiro caractere específico, utilize as funções ESQUERDA e PROCURAR para obter o resultado pretendido. A sintaxe genérica é:

• «cell»: A referência de célula ou cadeia de texto da qual pretende remover texto;
• «char»: O separador específico com base no qual pretende remover texto.

Agora, introduza a fórmula abaixo numa célula vazia e, em seguida, arraste a alça de preenchimento para as restantes células onde pretende aplicar esta fórmula. Todos os caracteres após a primeira vírgula serão removidos imediatamente, tal como ilustrado na captura de ecrã:

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

3,2 Remover texto antes ou depois da Ocorrência de um caractere

Por vezes, as cadeias de texto contêm várias ocorrências de um determinado delimitador, e poderá precisar de remover todos os caracteres antes ou depois de uma ocorrência específica — como a segunda, terceira ou quarta, conforme necessário. Para resolver este tipo de situação, pode recorrer aos seguintes truques:

Remover texto antes da Ocorrência de um caractere com uma fórmula

Para remover o texto antes da ocorrência de um caractere específico, utilize a fórmula seguinte. A sintaxe genérica é:

• «cell»: A referência de célula ou cadeia de texto da qual pretende remover texto;
• «char»: O separador específico com base no qual pretende remover texto;
• «N»: A ocorrência do caractere antes da qual o texto será removido.

Por exemplo, para remover tudo antes da segunda vírgula das cadeias de texto, aplique a fórmula abaixo:

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

Nota: Na fórmula acima, "A2" é a célula da qual pretende remover texto; " ," é o caractere específico com base no qual pretende remover texto — podendo substituí-lo por qualquer outro caractere conforme necessário; e "2" indica a enésima ocorrência desse caractere antes da qual o texto será removido.

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

Remover texto após a Ocorrênciaª ocorrência de um caractere com uma fórmula

Para remover o texto após a ª ocorrência de um separador específico, as funções ESQUERDA, SUBSTITUIR e PROCURAR podem ajudá-lo. A sintaxe genérica é:

• «cell»: A referência de célula ou cadeia de texto da qual pretende remover texto;
• «char»: O separador específico com base no qual pretende remover texto;
• «N»: A ocorrência do caractere após a qual o texto será removido.

Assim que compreender a sintaxe básica, copie ou introduza a fórmula abaixo numa célula vazia:

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

Nota: Na fórmula acima, «A2» é a célula da qual pretende remover texto; «,» é o caractere específico com base no qual o texto será removido — podendo ser substituído por qualquer outro caractere conforme necessário; e «2» indica a enésima ocorrência dessa vírgula após a qual o texto deverá ser removido.

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 eliminados de imediato, veja a captura de ecrã:

Remover texto antes ou após a Ocorrênciaª ocorrência de um caractere com uma função definida pelo utilizador

Como pode verificar, é possível resolver os casos de remoção de texto antes ou após a ª ocorrência de um caractere utilizando diferentes combinações das funções nativas do Excel. O problema é que terá de memorizar fórmulas complexas. Neste caso, irei criar uma Função Definida pelo Utilizador que abranja todos os cenários — siga estes passos:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover texto antes ou após a Ocorrênciaª 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, regresse à folha de cálculo e utilize as seguintes fórmulas:

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

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

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

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

3,3 Remover texto antes ou após a última ocorrência de um caractere

Se precisar de remover todo o texto antes ou após o último caractere específico, mantendo apenas as subcadeias antes ou após ele, esta secção apresenta fórmulas para resolver esse problema.

Remover 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 é:

• «cell»: A referência de célula ou cadeia de texto da qual pretende remover texto;
• «char»: O separador específico com base no qual pretende remover texto;

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

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

Nota: Na fórmula acima, «A2» é a célula da qual pretende remover texto; «,» é o caractere específico com base no qual será feita a remoção — podendo ser substituído por 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 eliminados, conforme mostrado na captura de ecrã abaixo:

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

Se os valores das células forem separados por um número variável de delimitadores e pretender eliminar tudo após a última ocorrência desse delimitador, a sintaxe genérica é:

• «cell»: A referência de célula ou cadeia de texto da qual pretende remover texto;
• «char»: O separador específico com base no qual pretende remover texto;

Copie ou introduza a fórmula abaixo numa célula vazia e, em seguida, arraste a alça de preenchimento para baixo para obter os outros resultados pretendidos, veja a captura de ecrã:

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

«Nota»: Na fórmula acima, «A2» é a célula da qual pretende remover texto; «,» é o caractere específico com base no qual o texto será removido — podendo ser substituído por qualquer outro caractere, conforme necessário.

3,4 Remover texto entre parênteses

Se tiver uma lista de cadeias de texto com parte dos caracteres entre parênteses, poderá querer remover todos os caracteres dentro dos parênteses — incluindo os próprios parênteses — tal como ilustrado na captura de ecrã abaixo. Esta secção apresenta alguns truques práticos para resolver esta tarefa no Excel.

Remover texto entre parênteses com a funcionalidade Localizar e Substituir

No Excel, a funcionalidade incorporada Localizar e Substituir permite-lhe encontrar todo o texto entre parênteses e substituí-lo por nada. Siga estes passos:

1. Selecione a lista de dados da qual deseja remover o texto entre parênteses.

2. Em seguida, clique em «Base» > «Localizar e Selecionar» > «Substituir» (ou prima «Ctrl + H») para abrir a caixa de diálogo «Localizar e Substituir». Nessa caixa de diálogo, realize as seguintes operações:

• No campo «Localizar», digite «(*)» na caixa de texto;
• No campo «Substituir por», deixe-o em branco.

3. Em seguida, clique no botão «Substituir Tudo» — todos os caracteres entre parênteses (incluindo os próprios parênteses) nas células selecionadas serão removidos imediatamente. Veja a captura de ecrã:

Dica: a funcionalidade «Localizar e Substituir» também funciona com duas ou mais pares de parênteses dentro de cadeias de texto.

Remover texto entre parênteses com fórmula

Além da funcionalidade Localizar e Substituir, pode também usar uma fórmula para resolver esta tarefa no Excel. A sintaxe genérica é:

• A cadeia de texto ou referência de célula da qual pretende eliminar caracteres específicos.

Agora, copie ou introduza a seguinte fórmula numa célula vazia onde pretende 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é às células onde pretende aplicar esta fórmula, e todo o texto entre parênteses, incluindo os próprios parênteses, será removido de imediato, veja a captura de ecrã:

Dica: Se o valor da célula não contiver parênteses, será apresentado um erro após aplicar a fórmula acima. Para ignorar esse erro, utilize a fórmula abaixo:

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

Remover texto entre parênteses com uma Função Definida pelo Utilizador

A fórmula acima funciona bem para remover texto contido num único par de parênteses. No entanto, se precisar de eliminar texto de vários pares de parênteses dentro da mesma cadeia, a fórmula não produzirá o resultado correto. Para resolver este desafio, criarei uma Função Definida pelo Utilizador simples e eficaz.

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover 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. Regresse à folha de cálculo e introduza esta fórmula numa célula vazia: «=remtxt(A2)». Depois, arraste a alça de preenchimento para baixo para aplicar a fórmula. Todo o texto entre parênteses — incluindo os próprios parênteses — será removido, tal como ilustrado na captura de ecrã:

Remover palavras de cadeias de texto

Em determinados casos, poderá querer remover palavras específicas de uma lista de células — como a primeira, a última ou até palavras duplicadas dentro da mesma célula. Para lidar com estes cenários, esta secção apresenta-lhe alguns métodos eficazes.

4,1 Remover a primeira ou última palavra de uma cadeia de texto

Para remover a primeira ou a última palavra de uma lista de cadeias de texto, as fórmulas seguintes poderão ser úteis.

Remover a primeira palavra de uma cadeia de texto com fórmula

Para remover as primeiras palavras de uma lista de cadeias de texto, basta criar uma fórmula simples com base nas funções DIREITA, NÚM.CARACT e PROCURAR. A sintaxe genérica é:

• A cadeia de texto ou referência de célula da qual deseja remover a primeira palavra.

Agora, introduza ou copie a seguinte fórmula para uma célula vazia:

=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 ecrã:

Dica: Se precisar de remover as primeiras N palavras das células, utilize a fórmula abaixo:

• «text»: A cadeia de texto ou referência de célula da qual pretende remover as primeiras n palavras;
• «N»: Indica o número de palavras que pretende remover do início da cadeia de texto.

Por exemplo, para remover as duas primeiras palavras das células, copie ou introduza a fórmula abaixo numa célula vazia para obter o resultado pretendido, veja a captura de ecrã:

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

 Remover a última palavra de uma cadeia de texto com fórmula

Para remover a última palavra de cadeias de texto, pode também utilizar uma fórmula para resolver esta tarefa. A sintaxe genérica é:

• «text»: A cadeia de texto ou referência de célula da qual pretende remover a última palavra;

Utilize a fórmula abaixo numa célula vazia e, em seguida, arraste a alça de preenchimento para baixo para aplicar a fórmula a outras células, veja a captura de ecrã:

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

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

• «text»: A cadeia de texto ou referência de célula da qual pretende remover as últimas n palavras;
• «N»: Indica o número de palavras que pretende remover do final da cadeia de texto.

Por exemplo, para eliminar as últimas 3 palavras de uma lista de células, utilize a fórmula abaixo para obter o resultado, veja a captura de ecrã:

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

4,2 Remover caracteres ou palavras duplicados dentro de uma célula

Ao remover Valores Duplicados ou linhas, o Excel oferece várias opções distintas. Contudo, quando se trata de eliminar caracteres ou palavras duplicados dentro de uma única célula, poderá não existir nenhuma funcionalidade incorporada adequada para resolver esse problema. Nesta secção, ajudamo-lo a criar algumas Funções Definidas pelo Utilizador para superar este desafio.

Remover caracteres duplicados dentro de uma célula ao utilizar uma Função Definida pelo Utilizador

Se tiver várias ocorrências do mesmo caractere numa célula e quiser remover os caracteres duplicados, mantendo apenas a primeira ocorrência — tal como ilustrado na captura de ecrã abaixo — pode utilizar a seguinte Função Definida pelo Utilizador.

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover 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, regresse à folha de cálculo e introduza a fórmula =RemoveDupeschars(A2) numa célula vazia junto aos seus dados. Depois, arraste a alça de preenchimento para as células onde pretende aplicar esta fórmula — veja a captura de ecrã:

Nota: «A2» é a célula de dados da qual pretende eliminar caracteres duplicados.

Dica: A função diferencia maiúsculas de minúsculas, considerando letras maiúsculas e minúsculas como caracteres distintos.

Remover palavras duplicadas dentro de uma célula ao utilizar uma Função Definida pelo Utilizador

Imagine que tem palavras ou cadeias de texto repetidas numa célula e pretende remover todas as duplicadas, tal como ilustrado na captura de ecrã abaixo. Pode utilizar a seguinte Função Definida pelo Utilizador para resolver esta tarefa no Excel.

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Remover 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, regresse à folha de cálculo e introduza a fórmula =RemoveDupeswords(A2,", ") numa célula vazia junto aos seus dados. Depois, arraste a alça de preenchimento para as células onde pretende aplicar esta fórmula — veja a captura de ecrã:

Nota: «A2» é a célula da qual pretende remover palavras duplicadas, e a vírgula seguida de espaço («, ») são os delimitadores utilizados para separar as cadeias de texto; pode substituí-los por quaisquer outros delimitadores, conforme as suas necessidades.

Dica: Esta função não diferencia maiúsculas de minúsculas — ambas são tratadas como caracteres idênticos.

4,3 Reduzir cadeia de texto a N palavras

Se tiver uma longa cadeia de texto numa célula, poderá por vezes querer reduzi-la a um número específico de palavras — ou seja, manter apenas as primeiras N palavras e eliminar o restante. Esta secção apresenta alguns truques práticos para realizar esta tarefa no Excel.

Reduzir a cadeia de texto a N palavras com fórmula

Para reduzir uma cadeia de texto a N palavras, pode criar uma fórmula utilizando as funções ESQUERDA, ENCONTRAR e SUBSTITUIR. A sintaxe genérica é:

• «text»: A cadeia de texto ou referência de célula que pretende aparar;
• «N»: O número de palavras que pretende conservar do lado esquerdo da cadeia de texto indicada.

Para executar esta tarefa, copie ou introduza a fórmula seguinte numa célula vazia:

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

De seguida, arraste a alça de preenchimento para baixo para aplicar esta fórmula a outras células; veja a imagem:

Reduzir a cadeia de texto a N palavras com uma Função Definida pelo Utilizador

Além da fórmula indicada acima, pode também criar uma Função Definida pelo Utilizador para realizar esta tarefa. Siga os passos abaixo:

1. Mantenha premidas as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.

Código VBA: Reduzir cadeia de texto a 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 do código, regresse à folha de cálculo e introduza a fórmula =GetNWords(A2,B2) numa célula vazia. Depois, arraste a alça de preenchimento para baixo para aplicar a fórmula a outras células — apenas o número específico inicial de palavras será mantido, conforme ilustrado na imagem seguinte:

As Melhores Ferramentas de Produtividade para o Office

🤖	KUTOOLS AI Assistente: Revolucione o Análise de Dados com base em:Execução Inteligente   |  Gerar Código|  Criar fórmulas personalizadas  |  Analisar Dados e Gerar Gráficos|  Invocar Funções Aprimoradas…
	Funcionalidades Populares:Localizar, Destacar ou Marcar Duplicatas   |  Excluir linhas em branco   |  Combinar Colunas ou Células sem Perder Dados   |   Arredondamento sem usar fórmula...
	Super PROC:VLookup com Múltiplos Critérios  |  VLookup com Múltiplos Valores  |   VLookup em Múltiplas Folhas   |   Correspondência Fuzzy....
	Lista Suspensa Avançada:Criar Rapidamente Lista de Seleção   |  Lista de Seleção Dependente   |  Lista de Seleção com Múltipla Escolha....
	Gestor de Colunas:Adicionar um Número Específico de Colunas|Mover Colunas|Alternar Estado de Visibilidade de Colunas Ocultas|Comparar Intervalos e Colunas...
	Funcionalidades em Destaque:Grade de foco   |  Visualização de Design   |Barra de fórmulas aprimorada   | Gestor de Pastas de Trabalho e Folhas   |  Biblioteca de Recursos(Texto Automático)|  Seleção de Data   |  Consolidar Planilhas  |  Encriptar/Descriptografar Células   | Enviar Emails por Lista   |  Super Filtro   |   Filtro Especial(Filtrar Células com Fonte em Negrito/itálico/rasurado...) ...
	Principais Conjuntos de Ferramentas 15:12 Ferramentasde Texto(Adicionar Texto,Excluir Caracteres Específicos, ...)|   50+Tiposde Gráfico(Gráfico de Gantt, ...)|   40+ Fórmulas Práticas(Calcular a idade com base na data de nascimento, ...)|   19 Ferramentasde Inserção(Inserir QR Code,Inserir Imagem a Partir do Caminho, ...)|   12 Ferramentasde Conversão(Converter em Palavras,Conversão de moeda, ...)|   7 Ferramentasde Mesclar e Dividir(Mesclar Linhas Avançado,Dividir Células, ...)|... e muito mais

Utilize o Kutools na sua língua preferida – suporta inglês, espanhol, alemão, francês, chinês e mais 40+ idiomas!

Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...

Mais detalhes sobre Kutools para Excel...Transferência gratuita...

---

Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil

• Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
• Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!

Mais detalhes sobre Office Tab...Transferência gratuita...

---

Todos os suplementos Kutools — num único instalador.

Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.

• Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
• Um instalador, uma licença— configuração em minutos (pronto para MSI)
• Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
• Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
• Melhor relação qualidade-preço— poupe face à compra individual dos suplementos

Mais detalhes sobre Kutools for Office...Transferência gratuita...