Excel vba macro ajustando linhas e colunas Autofit

Tempo de leitura: 1 minuto

Este exemplo altera a largura das colunas A até coluna K na folha de planilha 1 para obter o melhor ajuste ..Este exemplo altera a largura das colunas A até coluna K na folha de planilha 1 para obter o melhor ajuste ..

Worksheets(“Planilha1”).Columns(“A:K”).AutoFit

Este exemplo altera a largura das colunas A a E na Folha1 para obter o melhor ajuste, com base apenas no conteúdo das células A1: E1.

Worksheets(“Planilha1”).Range(“A1:E1”).Columns.AutoFit

Este exemplo se encaixa em todas as colunas da Folha Ativa.
Sub sbx_ajustando_colunas()
ActiveSheet.Columns.AutoFit
End Sub

No caso de ajustes de linhas, o método Autofit tem uma tendência para exibi-los, então, use esse código.
‘……………………….’
Sub sbx_ajustando_linhas()
On Error Resume Next
Dim c As Range
Dim wRng As Range
Set wRng = ActiveSheet.UsedRange
For Each c In wRng.Rows
If c.Rows.Hidden = False Then
c.EntireRow.AutoFit
End If
Next
End Sub
‘……………………….’