Como excluir colunas vazias com cabeçalho no Excel?

Se você tem uma planilha grande que contém várias colunas, mas algumas dessas colunas só possuem um cabeçalho, e agora você deseja excluir essas colunas vazias que contêm 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?

Excluir colunas vazias com cabeçalho usando código VBA

Excluir várias colunas vazias em um intervalo / planilha / pasta de trabalho com Kutools para Excel

Excluir colunas vazias com cabeçalho usando código VBA

No Excel, não há um método direto para lidar com essa tarefa além de excluí-las manualmente uma por uma, mas aqui posso apresentar um código para você; por favor, siga os passos abaixo:

1. Pressione e segure as teclas ALT + F11, isso abrirá a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Código VBA: Excluir colunas vazias com 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 columns with only headers are 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, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de que as colunas em branco com cabeçalho serão excluídas.

4. Clique em OK, todas as colunas em branco com apenas cabeçalhos na planilha atual serão excluídas de uma vez.

Observação: Se houver colunas em branco, elas também serão excluídas.

Excluir várias colunas vazias em um intervalo / planilha / pasta de trabalho com Kutools para Excel

Às vezes, você só precisa excluir as colunas em branco, e a ferramenta Excluir Linhas e Colunas Visíveis (Ocultas) do Kutools para Excel pode ajudá-lo a concluir essa tarefa facilmente.

Após instalar o Kutools para Excel, siga os passos abaixo:

1. Selecione o intervalo de colunas que inclui as colunas em branco que precisam ser excluídas.

2. Em seguida, clique em Kutools > Excluir > Excluir Linhas e Colunas Visíveis (Ocultas), veja a captura de tela:

3. Na caixa de diálogo Excluir Linhas e Colunas Visíveis (Ocultas), você pode selecionar o escopo da exclusão no menu suspenso Pesquisar em conforme necessário, selecione Colunas na seção Tipo de exclusão, e depois escolha Colunas em branco na seção Tipo detalhado, veja a captura de tela:

4. Em seguida, clique no botão Ok, e somente as colunas vazias serão excluídas imediatamente. Veja a captura de tela:

Dicas: Com esse recurso poderoso, você também pode excluir linhas em branco, colunas visíveis ou linha, colunas ocultas ou linhas conforme necessário.