Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

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

Author Xiaoyang Last modified

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?

A screenshot of an Excel worksheet showing columns with headers and some empty columns

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


arrow blue right bubble 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.


arrow blue right bubble 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.

Kutools para Excel ofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia. Integrado con capacidades de inteligencia artificial, Kutools automatiza las tareas con precisión, haciendo que la gestión de datos sea sencilla. Información detallada de Kutools para Excel...  Prueba gratuita...

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:

A screenshot of the Delete Hidden (Visible) Rows & Columns option in Kutools tab on the ribbon

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:

A screenshot of the Delete Hidden (Visible) Rows & Columns dialog

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

A screenshot showing empty columns deleted in Excel

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

Kutools para Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfruta de funciones de IA gratis permanentemente! Consíguelo ahora

Las mejores herramientas de productividad para Office

🤖 Kutools AI Aide: Revoluciona el análisis de datos basado en: Ejecución inteligente | Generar código | Crear fórmulas personalizadas | Analizar datos y generar gráficos | Invocar Funciones mejoradas
Funciones populares: Buscar, resaltar o identificar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda por varios criterios | Búsqueda por varios valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Cree rápidamente una lista desplegable | Lista desplegable dependiente | Lista desplegable de selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Alternar el estado de visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de Libro de trabajo y Hoja de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Cifrar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtrar celdas con fuente en negrita/cursiva/tachado...)...
Los15 principales conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres específicos, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas de combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) ... y más
Utiliza Kutools en tu idioma preferido: admite inglés, español, alemán, francés, chino y más de40 idiomas adicionales.

Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...


Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo

  • Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!

Todos los complementos de Kutools. Un solo instalador

El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.

Excel Word Outlook Tabs PowerPoint
  • Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
  • Mejor juntos: productividad optimizada en todas las aplicaciones de Office
  • Prueba completa de30 días: sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos