Como ajustar linhas/colunas automaticamente no vba?

Pontos chave

• No VBA, você pode usar o método AutoFit para ajustar automaticamente linhas, colunas e até mesmo uma planilha inteira.
• Você precisa especificar o intervalo e, em seguida, poderá usar o método AutoFit.

Ajustar automaticamente uma coluna

Digamos que você queira ajustar automaticamente a coluna A, o código seria algo como abaixo:

 Range("A1").EntireColumn.AutoFit

Na linha de código acima, você usou a propriedade WholeColumn para se referir à coluna inteira da célula A1.

Como você está em uma planilha, você também pode usar a propriedade columns e escrever um código como abaixo.

 Columns(1).AutoFit

Ajustar automaticamente uma linha

Da mesma forma, você pode escrever código para ajustar automaticamente uma linha. Digamos que você queira ajustar automaticamente a linha 5, o código seria:

 Range("A5").EntireRow.AutoFit

E se quiser usar a propriedade row, você pode usar o código a seguir.

 Rows(5).AutoFit

AutoFit UsedRange (linhas e colunas)

Agora, digamos que você queira ajustar automaticamente colunas e linhas que contenham dados. No VBA existe uma propriedade chamada intervalo usado que você pode usar. Então o código seria.

 ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit

E se você quiser usar uma planilha específica, o código seria.

 Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

Ajustar automaticamente a planilha inteira

E se quiser fazer referência a todas as colunas e linhas da planilha, você pode usar a propriedade “CELLS”. Aqui está o código.

 Worksheets("Sheet1").Cells.EntireColumn.AutoFit Worksheets("Sheet1").Cells.EntireRow.AutoFit

Ou você também pode usar a instrução WITH do VBA para escrever código como o mostrado abaixo.

 With Worksheets("Sheet1").Cells .EntireColumn.AutoFit .EntireRow.AutoFit End With