Como deletar colunas vazias com cabeçalho no Excel?
Se você tiver uma planilha grande que contém várias colunas, mas algumas das colunas contêm apenas um cabeçalho, e agora, você deseja excluir essas colunas vazias que possuem apenas um cabeçalho para obter a seguinte captura de tela mostrada. Isso pode ser resolvido no Excel de forma rápida e fácil?
Exclua colunas vazias com um cabeçalho usando o código VBA
Exclua várias colunas vazias em um intervalo/planilha/pasta de trabalho com o Kutools para Excel
Exclua colunas vazias com um cabeçalho usando o código VBA
No Excel, não existe um método direto para lidar com este trabalho, exceto excluí-los um por um manualmente, mas, aqui, posso apresentar um código para você, por favor, faça o seguinte:
1. Mantenha pressionada a ALT + F11 chaves, então ele abre o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: exclua colunas vazias com um cabeçalho:
Sub Macro1()
'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 and column(s) with only a header row have now 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. Então aperte F5 para executar este código e uma caixa de prompt aparecerá para lembrá-lo de que as colunas em branco com cabeçalho serão excluídas, veja a captura de tela:
4. E, em seguida, clique em OK botão, todas as colunas em branco com apenas cabeçalho na planilha atual são excluídas de uma vez.
Note: Se houver colunas em branco, elas também serão excluídas.
Exclua várias colunas vazias em um intervalo/planilha/pasta de trabalho com o Kutools para Excel
Às vezes, você só precisa excluir as colunas em branco, o Kutools for Excel'S Excluir linhas e colunas ocultas (visíveis) utilitário pode ajudá-lo a terminar esta tarefa com facilidade.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Selecione o intervalo de colunas que inclui as colunas em branco que precisam ser excluídas.
2. Então clique Kutools > Apagar > Excluir linhas e colunas ocultas (visíveis), veja a captura de tela:
3. No Excluir linhas e colunas ocultas (visíveis) caixa de diálogo, você pode selecionar o escopo de exclusão da lista suspensa Examinar conforme necessário, selecione colunas do Excluir tipo seção e, em seguida, escolha Colunas em branco do Tipo detalhado seção, veja a captura de tela:
4. Então clique Ok botão, e apenas as colunas vazias são excluídas de uma vez. Veja a imagem:
Tips: Com este recurso poderoso, você também pode excluir linhas em branco, colunas ou linhas visíveis, colunas ou linhas ocultas conforme necessário.
Clique em Baixe grátis o Kutools para Excel agora!
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- 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!
