Eliminar las columnas vacías de una tabla en Microsoft Excel usando VBA

Escrito por Administrador

20 de diciembre de 2023

Siguiendo con el post anterior, vamos a ver cómo eliminar las columnas vacías de una tabla en Microsoft Excel usando VBA. Y con esto nos vamos de vacaciones de Navidad  laughinglaughinglaughing

Para ello he preparado el ejemplo que os muestro a continuación,

saber-usuarios-conectados-base-datos

Como veis, hay varías columnas vacías. La idea es eliminarlas completamente al pulsar el botón que se encuentra encima de la tabla.

A continuación, os comparto el código del botón.

Nota.- Este código sólo comprueba que se encuentre vacía la segunda fila, pero puedes adaptarlo a tus necesidades. Si tuvieses cualquier problema, solo tienes que escribirlo en los comentarios o abrir un hilo en el foro.

Sub Eliminar_columnas_vacias()

'Identificamos la última columna con datos

h = Cells(2, 16384).End(xlToLeft).Offset(0, 0).Column

'Nos posicionamos en la primera columna

Cells(2, "A").Select

'Iniciamos un bucle eliminando las filas vacías

For i = 2 To h

If ActiveCell.Value = "" Then

ActiveCell.EntireColumn.Delete
ActiveCell.Offset(0, -1).Select

Else
End If

'Recorremos una columna hacia la derecha

ActiveCell.Offset(0, 1).Select

Next

End Sub

Si pulsamos el botón Eliminar columnas vacías, automáticamente desaparecerán las columnas vacías y nos quedaremos únicamente con las que contengan datos.

saber-usuarios-conectados-base-datos

Espero que con este ejemplo hayas aprendido a eliminar las columnas vacías de una tabla en Microsoft Excel usando VBA.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

febrero 2024
LMXJVSD
 1234
567891011
12131415161718
19202122232425
26272829 

Debates en el foro

Avatar
Access en una sola ventana
Avatar
Versiones frontend

Contacto