¿Cómo eliminar rápidamente varias columnas vacías en Excel?
A veces, al importar datos a Microsoft Excel desde Página web, CSV, archivos de texto, etc., puede haber muchas columnas vacías. Eliminar cada columna vacía una por una sería muy lento. Por ello, muchos usuarios buscan formas sencillas de resolver este problema. Este artículo recopila algunos consejos prácticos para ayudarle a eliminar varias columnas vacías rápidamente.
Eliminar varias columnas vacías en la hoja de cálculo con fórmula
Eliminar varias columnas vacías en la hoja de cálculo con código VBA
Eliminar varias columnas vacías con encabezado mediante código VBA
Eliminar varias columnas vacías en la hoja de cálculo con fórmula
En Excel, puede aplicar una fórmula para identificar si las columnas están en blanco y, a continuación, usar la función Ordenar para agrupar todas las columnas en blanco y eliminarlas de una sola vez. Siga estos pasos:
1. Añada una nueva fila en la parte superior de su rango de datos, tal como se muestra en la captura de pantalla:
2. A continuación, introduzca la siguiente fórmula en la celda A1 y arrastre el controlador de relleno hacia la derecha para aplicarla a otras celdas. Mostrará VERDADERO si la columna está en blanco y FALSO en caso contrario. Consulte la captura de pantalla:
3. A continuación, seleccione el rango de datos, incluida la fila auxiliar, y haga clic en «Datos» > «Ordenar»; consulte la captura de pantalla:
4. En el cuadro de diálogo emergente «Ordenar», haga clic en el botón «Opciones». A continuación, en el cuadro de diálogo «Opciones de ordenación», seleccione la opción «Ordenar de izquierda a derecha» (consulte las capturas de pantalla).
 |  |  |
5. Haga clic en Aceptar para regresar al cuadro de diálogo «Ordenar», seleccione «Fila 1» en el menú desplegable «Ordenar por», elija «Valores de celda» en la sección «Ordenar según» y marque «De mayor a menor» en la sección «Orden». Consulte la captura de pantalla:
6. Así, todas las columnas vacías quedarán agrupadas a la izquierda de sus datos. Ahora solo tiene que seleccionarlas todas, hacer clic con el botón derecho y elegir «Eliminar» para borrar estas columnas en blanco de una sola vez; consulte la captura de pantalla:
Eliminar varias columnas vacías en la hoja de cálculo con código VBA
Si prefiere utilizar una macro de VBA, el proceso será mucho más sencillo. El siguiente código de VBA puede ayudarle. Siga estos pasos:
1. Mantenga pulsadas las teclas «Alt + F11» en Excel para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue la siguiente macro en la ventana del módulo.
Código VBA: Eliminar varias Columnas en Blanco en la selección:
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Pulse la tecla F5 para ejecutar esta macro y seleccione en el cuadro de diálogo emergente el rango de trabajo que desee. Consulte la captura de pantalla:
4. Haga clic en Aceptar y se eliminarán todas las columnas vacías de la selección. Consulte la captura de pantalla:
Eliminar varias columnas vacías en Rango seleccionado / Hoja de Cálculo Actual / todo el libro de trabajo con Kutools para Excel
La utilidad «Eliminar filas/columnas ocultas (visibles)» de Kutools para Excel le permite eliminar rápidamente varias filas o columnas vacías de una sola vez.
Después de instalarKutools for Excel, proceda de la siguiente manera:
1. Haga clic en «Kutools» > «Eliminar» > «Eliminar filas/columnas ocultas (visibles)», tal como se muestra en la captura de pantalla:
2. En el cuadro de diálogo «Eliminar filas/columnas ocultas (visibles)», especifique el ámbito en el que desea aplicar la operación mediante la lista desplegable «Buscar en». (Si selecciona «Rango seleccionado», primero debe elegir el rango que desea utilizar). A continuación, marque «Columnas» en «Tipo de eliminación» y seleccione «Columnas en blanco» en «Tipo detallado». Consulte la captura de pantalla:
3. A continuación, haga clic en Aceptar. Las columnas en blanco se habrán eliminado del rango seleccionado. Consulte la captura de pantalla:
Eliminar varias columnas vacías con encabezado mediante código VBA
A veces puede que desee eliminar todas las columnas vacías que contienen únicamente un encabezado en la hoja de cálculo. El siguiente código VBA le ayudará. Siga estos pasos:
1. Mantenga pulsadas las teclas «Alt + F11» en Excel para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue la siguiente macro en la ventana del módulo.
Código VBA: Eliminar todas las columnas vacías con encabezado
Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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. Pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo que le recordará que se eliminarán las columnas en blanco con encabezado; consulte la captura de pantalla:
4. A continuación, haga clic en Aceptar y se eliminarán de una sola vez todas las columnas en blanco que contengan únicamente encabezado en la hoja de trabajo actual. Consulte las capturas de pantalla:
 | |  |
Más artículos relacionados:
- Eliminar todas las filas o columnas ocultas en Excel
- Si tiene un libro de trabajo grande con muchas filas y columnas ocultas y ya no necesita los datos ocultos, ¿cómo podría eliminarlos rápidamente?
- Eliminar todas las imágenes u otros objetos en Excel
- Si desea eliminar todas las imágenes de Microsoft Excel, puede resultar muy laborioso seleccionar cada imagen y eliminarlas una por una. Los siguientes trucos pueden facilitarle el trabajo para eliminar todas las imágenes.
- Eliminar filas basado en Color de fondo en Excel
- ¿Cómo podría eliminar Fila completa basándose en Color de fondo? En este ejemplo, necesito eliminar todas las filas cuyas celdas están rellenas con color azul Color de fondo, tal como se muestra en la siguiente captura de pantalla. Con este artículo, obtendrá algunos códigos para realizar esta tarea en Excel.
- Eliminar todas las filas que contengan un texto específico dentro de una columna en hojas de Google
- Supongamos que tiene un rango de datos en una hoja de Google y desea eliminar filas según los valores de las celdas en una columna. Por ejemplo, quiere eliminar todas las filas que contengan el texto «Complete» en la columna C. En este artículo le explicaré cómo resolverlo en Hojas de Google.
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