¿Cómo eliminar varias columnas vacías rápidamente en Excel?
A veces, cuando importa datos a Microsoft Excel desde alguna fuente, como una página web, CSV, texto, etc., puede haber muchas columnas vacías. Debe llevar mucho tiempo eliminar cada columna vacía una por una. Por lo tanto, algunos de nosotros buscamos formas fáciles de resolver este problema. Este artículo recopila algunos consejos complicados para ayudarlo a eliminar varias columnas vacías rápidamente.
Eliminar varias columnas vacías en la hoja de trabajo con fórmula
Elimine varias columnas vacías en la hoja de trabajo con código VBA
Elimine varias columnas vacías con un encabezado usando el código VBA
Eliminar varias columnas vacías en la hoja de trabajo con fórmula
En Excel, puede aplicar una fórmula para identificar si las columnas están en blanco o no, y luego usar el Ordenar función para ordenar todas las columnas en blanco juntas y luego eliminarlas a la vez. Por favor haz lo siguiente:
1. Agregue una nueva fila en la parte superior de su rango de datos, vea la captura de pantalla:
2. Luego ingrese la fórmula a continuación en la celda A1, y luego arrastre el controlador de relleno hacia el lado derecho para aplicar esta fórmula a otras celdas, se mostrará VERDADERO si la columna está en blanco; de lo contrario, se muestra FALSO, vea la captura de pantalla:
3. Luego, seleccione el rango de datos, incluida la fila auxiliar, y luego haga clic en Datos > Ordenar, ver captura de pantalla:
4. En el estalló Ordenar cuadro de diálogo, haga clic en Opciones botón, en el siguiente Opciones de ordenación diálogo, seleccionar Ordenar de izquierda a derecha opción, ver capturas de pantalla:
5. Hacer clic OK botón para devolver el Ordenar diálogo, luego seleccione Fila 1 del desplegable Ordenar por desplegable, y seleccione Valores de celda Desde Ordenar por sección, elija De mayor a menor del desplegable Ordenar sección, ver captura de pantalla:
6. Luego, todas las columnas vacías se han ordenado a la izquierda de sus datos, y ahora, solo necesita seleccionar todas las columnas y luego hacer clic derecho, elegir Borrar para eliminar estas columnas en blanco a la vez, vea la captura de pantalla:
Elimine varias columnas vacías en la hoja de trabajo con código VBA
Si desea utilizar la macro VBA, las cosas son mucho más fáciles. El siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Mantenga pulsado el otro + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código de VBA: elimine varias columnas en blanco en la selección:
Sub DeleteEmptyColumns () 'Actualizar por Extendoffice Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Establecer InputRng = Application.Selection Establecer InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Paso -1 Establecer rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Then rng.Delete End If Next Application.ScreenUpdating = True End Sub
3. presione el F5 para ejecutar esta macro, seleccione el rango de trabajo que necesita en el cuadro de diálogo emergente. Ver captura de pantalla:
4. Haga Clic en OK, se eliminan todas las columnas vacías de la selección. Ver captura de pantalla:
Elimine varias columnas vacías en la selección / hoja activa / libro de trabajo completo con una función útil
El Eliminar filas y columnas ocultas (visibles) utilidad de Kutools for Excel puede ayudarlo a eliminar rápidamente varias filas o columnas vacías a la vez.
Después de instalar Kutools for Excel, haz lo siguiente:
1. Hacer clic Kutools > Borrar > Eliminar filas y columnas ocultas (visibles), ver captura de pantalla:
2. En la Eliminar filas y columnas ocultas (visibles) cuadro de diálogo, especifique el alcance desde el que desea aplicar la operación Pase a ver la lista desplegable. (Si tu eliges En rango seleccionado, primero debe seleccionar un rango que desee utilizar). Y luego marque Columnas bajo Eliminar tipo. Y seleccione Columnas en blanco Desde Tipo detallado. Ver captura de pantalla:
3. Luego haga clic OK. Y las columnas en blanco se han eliminado del rango seleccionado. Ver captura de pantalla:
Elimine varias columnas vacías con un encabezado usando el código VBA
A veces, es posible que desee eliminar todas las columnas vacías que contienen solo un encabezado en la hoja de trabajo, el siguiente código VBA puede hacerle un favor, siga los siguientes pasos:
1. Mantenga pulsado el otro + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código de VBA: elimine todas las columnas vacías con un 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. Luego presione la tecla 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, haga clic en el botón Aceptar, todas las columnas en blanco con solo encabezado en la hoja de trabajo actual se eliminan a la vez. Ver capturas de pantalla:
Artículos más relativos:
- Eliminar todas las filas o columnas ocultas en Excel
- Si tiene un libro de trabajo grande con muchas filas y columnas ocultas, y ahora los datos ocultos no están disponibles, le gustaría eliminarlos todos. ¿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 llevar mucho tiempo seleccionar cada imagen y eliminarlas una por una. Los siguientes trucos pueden facilitar su trabajo para eliminar todas las imágenes.
- Eliminar filas según el color de fondo en Excel
- ¿Cómo podría eliminar filas enteras según el color de fondo? En este ejemplo, necesito eliminar todas las filas cuyas celdas se llenaron con color de fondo azul como se muestra en la siguiente captura de pantalla. Con este artículo obtendrás algunos códigos para realizar esta tarea en Excel.
- Eliminar todas las filas que contienen texto específico dentro de una columna en Hojas de cálculo de Google
- Supongamos que tiene un rango de datos en una hoja de Google, ahora, le gustaría eliminar las filas en función de los valores de celda en una columna. Por ejemplo, quiero eliminar todas las filas que contienen el texto “Completo” en la Columna C. En este artículo, hablaré sobre cómo resolverlo en las hojas de Google.
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!