Como eliminar várias colunas vazias rapidamente no Excel?
Por vezes, ao importar dados para o Microsoft Excel a partir de páginas da web, ficheiros CSV ou ficheiros de texto, surgem inúmeras colunas vazias. Eliminá-las uma a uma seria, sem dúvida, um processo moroso. Por isso, muitos utilizadores procuram soluções simples e eficazes para resolver este problema. Este artigo reúne dicas práticas que o ajudam a remover várias colunas vazias de forma rápida e eficiente.
Eliminar várias colunas vazias na folha de cálculo com fórmula
Eliminar várias colunas vazias na folha de cálculo com código VBA
Eliminar várias colunas vazias com cabeçalho utilizando código VBA
Eliminar várias colunas vazias na folha de cálculo com fórmula
No Excel, pode aplicar uma fórmula para identificar se as colunas estão em branco e, em seguida, utilizar a funcionalidade Ordenar para agrupar todas as colunas em branco, eliminando-as de uma só vez. Siga estes passos:
1. Adicione uma nova linha no topo do seu intervalo de dados, conforme ilustrado na captura de ecrã:
2. Em seguida, introduza a fórmula abaixo na célula A1 e arraste a alça de preenchimento para a direita para aplicar esta fórmula às restantes células. Será apresentado VERDADEIRO se a coluna estiver em branco; caso contrário, aparecerá FALSO, conforme ilustrado na captura de ecrã:
3. Em seguida, selecione o intervalo de dados, incluindo a linha auxiliar, e clique em «Dados» > «Ordenar», conforme ilustrado na captura de ecrã:
4. Na caixa de diálogo «Ordenar» que surge, clique no botão «Opções». Na caixa de diálogo «Opções de Ordenação», selecione a opção «Ordenar da esquerda para a direita», conforme ilustrado nas capturas de ecrã:
 |  |  |
5. Clique no botão OK para regressar à caixa de diálogo «Ordenar», selecione «Linha 1» na lista pendente «Ordenar por», escolha «Valores das Células» na secção «Ordenar por» e, na secção «Ordem», selecione «Do maior para o menor», conforme ilustrado na captura de ecrã:
6. Depois, todas as colunas vazias terão sido movidas para a esquerda dos seus dados. Basta agora selecionar essas colunas, clicar com o botão direito do rato e escolher «Eliminar» para remover todas as Colunas em Branco de uma só vez, conforme ilustrado na captura de ecrã:
Eliminar várias colunas vazias na folha de cálculo com código VBA
Se preferir utilizar uma macro VBA, o processo torna-se consideravelmente mais simples. O código VBA seguinte pode ajudá-lo. Siga estes passos:
1. Mantenha premidas as teclas «Alt + F11» no Excel para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do Módulo.
Código VBA: Eliminar várias Colunas em Branco na seleção:
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar esta macro e selecione o intervalo pretendido na caixa de diálogo que aparece. Veja a captura de ecrã:
4. Clique em OK e todas as colunas vazias na seleção serão removidas. Veja a captura de ecrã:
Eliminar várias colunas vazias Intervalo Selecionado / Planilha Atual / em todo o livro com Kutools para Excel
A funcionalidade «Excluir linhas/colunas ocultas» do Kutools para Excel permite-lhe remover rapidamente várias linhas ou colunas vazias de uma só vez.
Após instalar o Kutools for Excel, proceda da seguinte forma:
1. Clique em «Kutools» > «Eliminar» > «Excluir linhas/colunas ocultas (visíveis)», conforme mostra a captura de ecrã:
2. Na caixa de diálogo «Excluir linhas/colunas ocultas (visíveis)», defina o âmbito da operação na lista pendente «Procurar em». (Se optar por «Intervalo Selecionado», selecione primeiro o intervalo pretendido.) De seguida, marque «Colunas» em «Tipo de exclusão» e escolha «Colunas em Branco» em «Tipo detalhado». Veja a captura de ecrã:
3. Em seguida, clique em OK. As colunas em branco foram removidas do intervalo selecionado. Veja a captura de ecrã:
Eliminar várias colunas vazias com cabeçalho utilizando código VBA
Por vezes, poderá querer eliminar todas as colunas vazias que contenham apenas um cabeçalho na sua folha de cálculo. O código VBA seguinte pode ajudá-lo. Siga os passos abaixo:
1. Mantenha premidas as teclas «Alt + F11» no Excel para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do Módulo.
Código VBA: Eliminar todas as colunas vazias com cabeçalho
Sub deleteblankcolwithheader()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Aparecerá uma caixa de aviso a informá-lo de que as colunas em branco com cabeçalho serão eliminadas, conforme ilustrado na captura de ecrã:
4. Depois, clique no botão OK e todas as colunas em branco que contêm apenas o cabeçalho na folha atual serão eliminadas de uma só vez. Veja as capturas de ecrã:
 | |  |
Mais artigos relacionados:
- Eliminar Todas as Linhas ou Colunas Ocultas no Excel
- Se tiver um livro grande com muitas linhas e colunas ocultas e já não precisar desses dados ocultos, como pode eliminá-los rapidamente?
- Eliminar Todas as Imagens ou Outros Objetos no Excel
- Se pretender eliminar todas as imagens do Microsoft Excel, poderá ser demorado selecionar cada imagem e eliminá-las uma a uma. Os seguintes truques podem facilitar o seu trabalho para eliminar todas as imagens.
- Excluir linhas Com Base em Cor de Fundo no Excel
- Como eliminar uma linha inteira com base na cor de fundo? Neste exemplo, pretende eliminar todas as linhas cujas células tenham fundo azul, tal como ilustrado na seguinte captura de ecrã. Com este artigo, obterá códigos prontos a usar para executar esta tarefa no Excel.
- Eliminar Todas as Linhas que Contêm um Texto Específico numa Coluna nas Folhas do Google
- Imagine que tem um intervalo de dados numa folha do Google Sheets e pretende eliminar linhas com base nos valores de uma coluna específica. Por exemplo, quer remover todas as linhas em que a Coluna C contém o texto «Concluído». Neste artigo, explico como resolver este problema no Google Sheets.
As Melhores Ferramentas de Produtividade para o Office
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...
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!
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