Remover Espaços em células do Excel – Espaços à Frente, Espaços Atrás, espaços extra ou todos os espaços

Por vezes, ao copiar e colar dados de outras aplicações para uma folha de cálculo, podem surgir problemas se espaços extra forem inadvertidamente incluídos. Por exemplo, ao somar duas células numéricas que contêm espaços à frente, o resultado será 0 em vez do valor correto; ou, ao comparar duas células com conteúdo idêntico — mas em que uma delas tem espaços iniciais ou finais —, obterá um resultado incorreto. Como remover esses espaços? Este tutorial apresenta vários métodos eficazes.

Remover espaços extra, incluindo espaços iniciais, finais e em excesso entre palavras, das células

Imagine que tem colunas de células com espaços iniciais, finais e em excesso entre palavras. Para eliminar todos esses espaços extra das células, a função COMPACTAR é a solução ideal.

Selecione uma célula vazia, introduza =TRIM(B3) nela e prima a tecla Enter. Em seguida, arraste a Alça de Preenchimento para baixo para aplicar a fórmula a outras células. Veja a imagem:
Nota: B3 é a célula que contém o texto do qual pretende remover os espaços.

Agora, todos os espaços extra — incluindo os iniciais, finais e os excessivos entre palavras — foram removidos das células especificadas.

Nota: Esta operação deve ser realizada numa nova coluna. Após remover todos os espaços extra, terá de substituir os dados originais pelos dados compactados: prima Ctrl+C, selecione o intervalo de dados original e clique com o botão direito para escolher Valores na secção Colar Especial.

Remover apenas Espaços à Frente das células

Nalguns casos, poderá precisar de remover apenas os espaços à frente e manter todos os espaços intermédios nas células, conforme ilustrado na imagem seguinte. Esta secção apresenta outra fórmula e código VBA para resolver este problema.

Utilizar a função EXT.TEXTO para remover apenas Espaços à Frente

Selecione uma célula vazia (neste caso, a célula D3), copie a fórmula abaixo para ela e prima a tecla Enter. Em seguida, arraste a Alça de Preenchimento para baixo para aplicar a fórmula às restantes células.

=MID(B3,FIND(MID(TRIM(B3),1,1),B3),LEN(B3))

Nesta fórmula, B3 é a célula que contém o texto do qual pretende remover os espaços à frente.

Nota: Esta operação deve ser realizada numa nova coluna. Após remover todos os espaços à frente, terá de substituir os dados originais pelos dados compactados sem fórmulas.

Utilizar código VBA para remover apenas Espaços à Frente

1. Abra a folha de cálculo que contém as células das quais pretende remover os espaços à esquerda e, em seguida, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo e, em seguida, copie o código VBA abaixo para a janela do Módulo.

Sub RemoveLeadingSpaces()
'Updateby20190612
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 = VBA.LTrim(Rng.Value)
Next
End Sub

3. Prima a tecla F5 para executar o código. Aparecerá uma caixa de diálogo Kutools para Excel. Selecione as células contínuas das quais pretende remover os espaços à frente e, em seguida, clique no botão OK.

Agora pode verificar que apenas os espaços à frente foram removidos das células selecionadas.

Remover apenas Espaços Atrás das células

1. Abra a folha de cálculo que contém as células das quais irá remover Espaços à Frente e, em seguida, prima as teclas Alt+F11para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir>Módulo, depois copie o código VBA abaixo para a janela do Módulo.

Sub RemoveTrailingSpaces()
'Updateby20190612
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 = VBA.RTrim(Rng.Value)
Next
End Sub

3. Prima a tecla F5 para executar o código. Aparecerá uma caixa de diálogo Kutools para Excel. Selecione as células contíguas das quais pretende remover os espaços à direita e, em seguida, clique no botão OK. Agora pode verificar que apenas os espaços à direita foram removidos das células selecionadas.

Remover todos os espaços das células

Se pretende eliminar todos os espaços em células específicas, os métodos nesta secção são a solução ideal para si.

Utilizar a função SUBSTITUIR para remover todos os espaços das células

=SUBSTITUTE()text, old_text, new_text, [instance_num])

Selecione uma célula vazia, copie a fórmula abaixo para ela e prima a tecla Enter. Em seguida, arraste a Alça de Preenchimento para baixo para aplicar a fórmula a outras células.

=SUBSTITUTE(B3,« »,«»)

Dicas: nesta fórmula, B3 é a célula que contém o texto do qual pretende remover todos os espaços;
         « » (um espaço entre aspas duplas) representa os espaços que pretende remover;
         «» significa que irá substituir todos os espaços por nada.

Depois, verificará que todos os espaços nas células específicas foram removidos imediatamente.

Nota: esta operação deve ser realizada numa nova coluna. Depois de remover todos os espaços, substitua os dados originais pelos dados sem espaços e sem fórmulas.

Utilize a função Localizar e Substituir para remover todos os espaços das células

Para além da função SUBSTITUIR acima mencionada, a funcionalidade Localizar e Substituir também pode ajudar a remover todos os espaços das células.

1. Selecione as células que contêm os espaços que pretende remover e prima as teclas Ctrl+H para abrir a caixa de diálogo Localizar e Substituir.

2. Na caixa de diálogo Localizar e Substituir, no separador Substituir, introduza um espaço na caixa Localizar, deixe a caixa Substituir por em branco e, em seguida, clique no botão Substituir Tudo.

Remova facilmente espaços iniciais, finais, extras e todos os espaços das células com o Kutools

1. Selecione um intervalo ou vários intervalos com as células das quais pretende remover espaços e clique em Kutools > Texto > Remover Espaços. Veja a imagem:

2. Poderá verificar que existem 5 opções na caixa de diálogo Remover Espaços:

• Para remover apenas os Espaços à Frente, selecione a opção Espaços à Frente;
• Para remover apenas os Espaços Atrás, selecione a opção Espaços Atrás;
• Para remover simultaneamente os Espaços à Frente e os Espaços Atrás, selecione a opção Espaços iniciais e Espaços Atrás;
• Para remover todos os espaços extra (incluindo espaços iniciais, finais e em excesso entre palavras), selecione a opção Todos os Espaços Extras;
• Para remover todos os espaços, selecione a opção Todos os espaços.

Em seguida, clique no botão OK para iniciar a operação.

Outros casos práticos relacionados com espaços no Excel

Além de remover espaços das células, já se viu alguma vez numa situação em que precisou de contar, adicionar espaços ou substituí-los por outros caracteres? A sugestão seguinte pode acelerar o seu trabalho no Excel.

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel Resolve a Maior Parte dos Seus Problemas e Aumenta a Sua Produtividade em 80 %

• Super Barra de Fórmulas (edite facilmente várias linhas de texto e fórmulas); Disposição de Leitura (leia e edite com facilidade um grande número de células); Colar em Intervalo de Filtro...
• Mesclar Células, Linhas ou Colunas e Manter os Dados; Dividir o Conteúdo das Células; Combinar Linhas Duplicadas e Calcular Soma/Média... Evitar Entradas Duplicadas nas Células; Comparar Intervalos...
• Selecionar linhas duplicadas ou únicas;Selecionar linhas em branco (todas as células vazias);Super Localizar e Pesquisa Aproximada em vários livros; seleção aleatória...
• Cópia Exata de múltiplas células sem alterar a referência da fórmula;Criar Referências Automaticamente para várias folhas;Inserir Marcadores, caixas de seleção e muito mais...
• Fórmulas Favoritas e Inserção Rápida, intervalos, gráficos e imagens; Criptografar Células com palavra-passe; Criar Lista de Correspondência e envie e-mails...
• Extrair Texto, adicionar texto, remover caracteres de uma posição, remover espaços; criar e imprimir estatísticas da página de dados; converter entre conteúdo das células e comentários...
• Super Filtro (guarde e aplique esquemas de filtro noutras folhas); Classificação Avançada por mês, semana, dia, frequência e muito mais; Filtro Especial por negrito, itálico…
• Combinar Livros e Folhas de Cálculo; mesclar tabelas com base numa coluna-chave; dividir dados em várias folhas; conversão automática de xls, xlsx e PDF...
• Agrupamento por Tabela Dinâmica número da semana, dia da semana e muito mais...Mostrar desbloqueadas, bloquear seleção com cores diferentes;Destacar células que contêm fórmula/nome...

Saber Mais...Versão Completa com Teste Gratuito de 30 Dias...Comprar... 

---

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!

Saber Mais...Versão Completa com Teste Gratuito de 30 Dias...Comprar...