Note: The other languages of the website are Google-translated. Back to English

¿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 en la selección / hoja activa / libro de trabajo completo con una función útil

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:

=COUNTA(A2:A1048576)=0

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.

Consejos:Para aplicar esto Eliminar filas y columnas ocultas (visibles) función, en primer lugar, debe descargar la Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

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 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.


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.
pestaña kte 201905

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!
officetab parte inferior

Comentarios (8)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Encontré mucho más simple ir a la línea después de mi última línea de datos, ingresar "Shift-Ctrl-End" para resaltar todas las líneas en blanco que siguieron (mucho más rápido), hacer clic con el botón derecho e ingresar "eliminar todas las filas/columnas". El sistema no perdió tanto tiempo buscando de esta manera, por lo que estuvo limpio en un abrir y cerrar de ojos y los archivos que tenían 20 MB se redujeron a un tamaño de 20 kb.
Este comentario fue minimizado por el moderador en el sitio
los detalles anteriores son muy útiles para mi uso personal. Gracias por tu orientación. M.KARTHIKEYAN :-)
Este comentario fue minimizado por el moderador en el sitio
Página muy útil. Gracias. :-) Mi desafío es que tengo columnas con encabezados, pero no hay datos en esa columna. Solo el encabezado está presente. ¿Cómo se haría para eliminar columnas donde no hay datos, pero el encabezado está allí? :u
Este comentario fue minimizado por el moderador en el sitio
Hola, lo que te mencionan es muy útil. Quiero una pequeña ayuda de tu parte. Diariamente descargue algunos archivos y use pivote para preparar los informes. Es una tarea diaria para mí y un proceso de rutina. ¿Cómo puedo hacerlo sin usar pivot? Ej: Si preparé los informes de ayer en el archivo "A" de Excel. Al día siguiente, en el archivo de Excel "A", simplemente reemplazo los nuevos datos del archivo de Excel "B". ¿Se crearía este informe automáticamente? ¿Es posible?
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿alguien puede guiarme sobre cómo puedo eliminar celdas en blanco en una fila o columna ... observe la columna o filas en blanco completas ... solo la celda en blanco que necesito eliminar en una columna?
Este comentario fue minimizado por el moderador en el sitio
Hola,


intenta implementar el siguiente código
Este comentario fue minimizado por el moderador en el sitio
Gracias, es una página muy útil con la opción básica de Excel :)
Este comentario fue minimizado por el moderador en el sitio
¡Eliminó todos mis nombres en mi columna de nombre! ¡Auuggh!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL