¿Cómo eliminar columnas vacías que incluyen encabezado en Excel?
Si tiene una hoja de cálculo grande que contiene múltiples columnas, pero algunas de ellas solo contienen un encabezado, y ahora desea eliminar esas columnas vacías que contienen únicamente un encabezado para obtener un resultado como el 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 mediante código VBA
Eliminar columnas vacías con un encabezado mediante código VBA
En Excel no existe un método directo para realizar esta tarea, aparte de eliminarlas manualmente una por una; sin embargo, a continuación le presentamos un código. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue 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. A continuación, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo que le recordará que las columnas en blanco con encabezado se eliminarán.
4. Haga clic en Aceptar y todas las columnas en blanco que solo contengan encabezados en la hoja de trabajo actual se eliminarán de inmediato.
Nota: Si hay columnas en blanco, también se eliminarán.
Eliminar varias columnas vacías en un rango / hoja de cálculo / libro de trabajo con Kutools para Excel
A veces, solo necesita eliminar las columnas en blanco. La utilidad Kutools para Excel de Eliminar filas/columnas ocultas (visibles) puede ayudarle a completar esta tarea con facilidad.
Después de instalar Kutools para Excel, siga estos pasos:
1. Seleccione el rango de columnas que incluya las columnas en blanco que desea eliminar.
2. A continuación, haga clic en Kutools > Eliminar > Eliminar filas/columnas ocultas (visibles). Consulte la captura de pantalla:
3. En el cuadro de diálogo Eliminar filas/columnas ocultas (visibles), puede seleccionar el ámbito de eliminación en el menú desplegable Buscar en según sus necesidades; seleccione Columnas en la sección Tipo de eliminación y, a continuación, elija Columnas en blanco en la sección Tipo detallado. Consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y las columnas vacías se eliminarán de inmediato. Consulte la captura de pantalla:
Consejos: Con esta potente función, también puede eliminar filas en blanco, columnas o filas visibles, e incluso columnas u filas ocultas, según sus necesidades.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos