Como definir uma largura de coluna de planilha do Excel com VBA?

Atualizado: agosto de 2021; Funciona no Excel 365, 2019, 2016.

No tutorial de automação do Excel de hoje, aprenderemos como alterar rapidamente a largura de uma coluna de planilha conforme necessário - mas programaticamente usando VBA (Visual Basic for Applications).

Pré-requisitos

Para escrever código VBA, você precisará, antes de mais nada, garantir que sua guia de desenvolvedor esteja habilitada. Se você não tiver certeza sobre o procedimento, verifique nosso procedimento detalhado .

• No seu computador Windows, abra o Microsoft Excel .
• Na faixa de opções principal, clique em Desenvolvedor .
• Pressione o comando Visual Basic . Isso abrirá o Editor VBA .
• No explorador de projetos do lado esquerdo, destaque uma planilha específica na qual você inserirá seu código. Como alternativa, você pode inserir um novo módulo ou adicionar nosso código a um módulo VBA existente.

Definindo a largura de uma coluna

Neste exemplo, selecionaremos uma coluna na planilha ativa e a modificaremos de acordo.

• Usando o Editor VBA, copie o código a seguir para sua planilha ou módulo.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Execute seu código pressionando F5 ou escolha Run >> Run Sub ou Form.
• Salve seu trabalho clicando em Arquivo >> Salvar ou no ícone Disco.

Alterar a largura de um intervalo de várias colunas

Neste exemplo, escolhemos um intervalo de colunas e alteramos a largura.

Você pode aplicar o código da mesma forma descrita na seção anterior.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Próximos passos

Começando com VBA? Certifique-se de olhar para o guia básico de VBA para Excel .