VBA – Autoajustar Columnas

Después de manipular una hoja de cálculo con VBA puede ser necesario Autoajustar sus columnas para presentar el resultado final más bonito posible. Aquí le mostramos como autoajustar columnas usando VBA.

Autoajustar Columna Usando VBA

Este código autoajusta las columnas A y B. El autoajuste se aplica a la hoja activa.

Columns("A:B").EntireColumn.Autofit

Autoajustar Todas las Columnas Usadas

¿Qué pasa si quiere Autoajustar todas las columnas usadas en una hoja de cálculo? Use el método anterior en combinación con Contar el Número de Columnas Usadas, y un bucle.

El siguiente código autoajusta todas las columnas usadas usando VBA:

Sub AutoajustarTodasLasColumnasUsadas()

Dim x As Integer

For x = 1 To ActiveSheet.UsedRange.Columns.Count

     Columns(x).EntireColumn.autofit

Next x

End Sub