¿Cómo eliminar columnas vacías con encabezado en Excel?
Si tiene una hoja de trabajo grande que contiene múltiples columnas, pero algunas de las columnas solo contienen un encabezado, y ahora, desea eliminar estas columnas vacías que solo tienen un encabezado para obtener la siguiente captura de pantalla. ¿Esto se puede resolver en Excel de forma rápida y sencilla?
Elimine columnas vacías con un encabezado usando el código VBA
Elimine columnas vacías con un encabezado usando el código VBA
En Excel, no existe un método directo para lidiar con este trabajo, excepto eliminarlos uno por uno manualmente, pero aquí, puedo introducir un código para usted, haga lo siguiente:
1. Mantenga pulsado el botón ALT + F11 llaves, luego abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: elimine las 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 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que se eliminarán las columnas en blanco con encabezado, vea la captura de pantalla:
4. Y luego haz clic OK , todas las columnas en blanco con solo encabezado en la hoja de trabajo actual se eliminan a la vez.
Note: Si hay columnas en blanco, también se eliminarán.
Elimine varias columnas vacías en un rango / hoja de trabajo / libro de trabajo con Kutools para Excel
A veces, solo necesita eliminar las columnas en blanco, el Kutools for Excel, Eliminar filas y columnas ocultas (visibles) La utilidad puede ayudarlo a terminar esta tarea con facilidad.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haga lo siguiente:
1. Seleccione el rango de columnas que incluye las columnas en blanco que deben eliminarse.
2. Luego haga clic Kutools > Borrar > Eliminar filas y columnas ocultas (visibles), ver captura de pantalla:
3. En la Eliminar filas y columnas ocultas (visibles) cuadro de diálogo, puede seleccionar el alcance de eliminación del menú desplegable Buscar en según lo necesite, seleccione Columnas del desplegable Eliminar tipo sección, y luego elija Columnas en blanco del desplegable Tipo detallado sección, ver captura de pantalla:
4. Luego haga clic Ok , y solo las columnas vacías se eliminan a la vez. Ver captura de pantalla:
Tips: Con esta poderosa función, también puede eliminar filas en blanco, columnas o filas visibles, columnas o filas ocultas según lo necesite.
¡Haga clic en Descargar gratis Kutools para Excel ahora!
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!