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