Como autoajustar el ancho de las columnas con VBA

En ocasiones, el largo del texto incluido en las celdas sobrepasa al ancho de la columna, y para ello podemos grabar una macro para autoajustar el ancho de las columnas, o bien incluir este código dentro de alguna otra macro que tengamos.

La tabla de Excel mejora visualmente

Visualmente va a quedar mejor si al generar una tabla de excel, o acabar una macro en la que hayas tratado un rango de celdas, las columnas quedan adaptadas al ancho que realmente necesitan y no con el texto superpuesto sobre otras celdas.

Realmente la forma más sencilla para ajustar las columnas de un archivo Excel con VBA es grabar la macro directamente y luego copiar el código, pero si quieres, a continuación hay dos ejemplos del código que vas a necesitar.

Autoajustar la selección actual

Si queremos autoajustar las columnas en la selección que tengamos en ese momento:

Sub Autoajustar()
Selection.Columns.AutoFit
End Sub

No olvides seleccionar el rango de celdas para ajustar en la línea anterior a este código.

Autoajustar siempre las mismas columnas

En el caso de querer siempre autoajustar las mismas columnas porque sabes que la tabla solo tiene columnas de la A hasta la J, aplica el código que ya contiene el rango indicado explícitamente.

Sub Autoajustar2 ()
Range("A:J").EntireColumn.AutoFit
End Sub