Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo eliminar columnas vacías con encabezado en Excel?

Si tiene una hoja de trabajo grande que contiene varias columnas, pero algunas de las columnas solo contienen un encabezado, y ahora, desea eliminar estas columnas vacías que, con solo un encabezado, muestran la siguiente captura de pantalla. ¿Esto se puede resolver en Excel rápida y fácilmente?

doc eliminar columnas en blanco con el encabezado 1

Eliminar columnas vacías con un encabezado mediante el código VBA

Eliminar múltiples columnas vacías en un rango / hoja de cálculo / libro de trabajo con Kutools para Excel


flecha azul burbuja derecha Eliminar columnas vacías con un encabezado mediante el código VBA


En Excel, no hay un método directo para tratar este trabajo, excepto eliminarlos uno por uno manualmente, pero, aquí, puedo introducir un código para usted, por favor haga lo siguiente:

1. Mantenga pulsado el botón ALT + F11 teclas, luego se abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: elimine las columnas vacías con un encabezado:

Sub Macro1()
'updateby Extendoffice 20160616
    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 tecla para ejecutar este código, y aparecerá un cuadro emergente para recordarle que las columnas en blanco con encabezado serán eliminadas, vea la captura de pantalla:

doc eliminar columnas en blanco con el encabezado 2

4. Y luego haz clic OK botón, todas las columnas en blanco con solo encabezado en la hoja de trabajo actual se eliminan a la vez.

Nota: Si hay columnas en blanco, también se eliminarán.


flecha azul burbuja derecha Eliminar múltiples columnas vacías en un rango / hoja de cálculo / libro de trabajo con Kutools para Excel

Algunas veces, solo necesita borrar las columnas en blanco, Kutools for Excel, Eliminar filas y columnas ocultas (visibles) la utilidad puede ayudarte a terminar esta tarea con facilidad.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de columnas que incluyen las columnas en blanco deben ser eliminadas.

2. Luego haga clic Kutools > Borrar > Eliminar filas y columnas ocultas (visibles), mira la captura de pantalla:

doc eliminar columnas en blanco con el encabezado 3

3. En la Eliminar filas y columnas ocultas (visibles) cuadro de diálogo, puede seleccionar el alcance de eliminación desde el menú desplegable Buscar en el que necesite, seleccione columnas del Eliminar tipo sección, y luego elegir Columnas en blanco del Tipo detallado sección, ver captura de pantalla:

doc eliminar columnas en blanco con el encabezado 4

4. Luego haga clic Ok botón, y solo las columnas vacías se eliminan a la vez. Ver captura de pantalla:

doc eliminar columnas en blanco con el encabezado 5

Consejos: Con esta poderosa función, también puede eliminar filas en blanco, columnas visibles o filas, columnas ocultas o filas según lo necesite.

Haga clic en Descargar gratis Kutools para Excel ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kim · 1 years ago
    OMG, this is genius!!! thank you
  • To post as a guest, your comment is unpublished.
    Roger · 3 years ago
    Hi,

    Thanks for the nice code above.
    Is it free to use?