¿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 de Ordenar por desplegable, y seleccione Valores de celda de Ordenar por sección, elija De mayor a menor de 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. Presione 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
Programas de 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 de 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
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
