¿Cómo eliminar columnas vacías con encabezado en Excel?

Si tienes una hoja de cálculo grande que contiene múltiples columnas, pero algunas de las columnas solo contienen un encabezado, y ahora quieres eliminar estas columnas vacías que solo tienen un encabezado para obtener lo que se muestra en la siguiente captura de pantalla. ¿Se puede resolver esto en Excel de forma rápida y sencilla?

Eliminar columnas vacías con un encabezado utilizando código VBA

Eliminar múltiples columnas vacías en un rango / hoja de cálculo / libro de trabajo con Kutools para Excel

Eliminar columnas vacías con un encabezado utilizando código VBA

En Excel, no hay un método directo para realizar esta tarea excepto eliminarlas manualmente una por una, pero aquí puedo presentarte un código, por favor sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11, luego se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Eliminar columnas vacías con un encabezado:

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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo indicándote que las columnas en blanco con encabezado serán eliminadas.

4. Haz clic en Aceptar, y todas las columnas en blanco con solo encabezados en la hoja de trabajo actual se eliminarán de una vez.

Nota: Si hay columnas en blanco, también se eliminarán.

Eliminar múltiples columnas vacías en un rango / hoja de cálculo / libro de trabajo con Kutools para Excel

A veces, solo necesitas eliminar las columnas en blanco; la utilidad Eliminar filas y columnas ocultas (visibles) de Kutools para Excel puede ayudarte a completar esta tarea fácilmente.

Después de instalar Kutools para Excel, por favor sigue los siguientes pasos:

1. Selecciona el rango de columnas que incluye las columnas en blanco que necesitan ser eliminadas.

2. Luego haz clic en Kutools > Eliminar > Eliminar filas y columnas ocultas (visibles), ver captura de pantalla:

3. En el cuadro de diálogo Eliminar filas y columnas ocultas (visibles), puedes seleccionar el ámbito de eliminación desde el menú desplegable Buscar en según sea necesario, seleccionar Columnas en la sección Tipo de eliminación, y luego elegir Columnas en blanco en la sección Tipo detallado, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y solo las columnas vacías se eliminarán de inmediato. Ver captura de pantalla:

Consejos: Con esta poderosa función, también puedes eliminar filas en blanco, columnas visibles o filas, columnas u ocultas según sea necesario.