Excel VBA ajuste de linhas e colunas Autofit

Tempo de leitura: 1 minuto

Excel VBA ajuste de linhas e colunas Autofit

Esta macro Ajusta a coluna de acordo com tamanho do nome ou dados inserido usando o método Autofit

 

 

Sub ajusta_coluna()
‘—‘ insira a area e selecione
Range(“A2:E2”).select
Selection.Columns.AutoFit
End Sub

Sub ajusta_coluna1()
Columns(“A:D”).autofit
end sub

‘inserindo medidas as linhas e colunas para o teste
Sub sbx_ajuste_teste()
Columns(“B:B”).ColumnWidth = 8.18
Rows(“1:7”).RowHeight = 70.5
End Sub

‘ajustando a folha de planilha
Sub sbx_ajuste_autofit()
Columns(“b”).AutoFit
Rows(“1:7”).AutoFit
End Sub
‘///============

O objeto Range deve ser uma linha ou um intervalo de linhas, ou uma coluna ou um intervalo de colunas. Caso contrário, esse método gerará um erro.

Uma unidade de largura de coluna é igual à largura de um caractere no estilo Normal.

Exemplo

Este exemplo altera a largura das colunas A até I na Planilha1 para obter o melhor ajuste.

Worksheets("Planilha1").Columns("A:I").AutoFit

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

Worksheets("Planilha1").Range("A1:E1").Columns.AutoFit

Faça o download da Planilha exemplo

 

Escola SaberExcel VBA Estudos