VBA – Ajuste Automático de Colunas

Depois de manipular uma planilha com o VBA, pode ser necessário ajustar automaticamente as colunas para apresentar o resultado final o mais agradável possível. Veja a seguir como ajustar automaticamente as colunas usando o VBA.

Ajuste Automático de Colunas Usando o VBA

Este código ajusta automaticamente as colunas A e B. O ajuste automático é aplicado à planilha ativa

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

Autofit de Todas as Colunas Usadas

E se você quiser ajustar automaticamente todas as colunas usadas em uma planilha? Use o método acima em combinação com Contar o número de colunas usadas e um loop.

O código a seguir ajusta automaticamente todas as colunas usadas usando o VBA

Sub AjustarColunasUsadas()

Dim x As Integer

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

 Columns(x).EntireColumn.Autofit

Next x

End Sub