Como ajustar automaticamente a largura da coluna no Excel?

No Excel, você pode ajustar a largura da coluna para se adaptar rapidamente ao conteúdo das células usando o recurso Ajuste Automático de Largura da Coluna. Às vezes, você pode querer que a largura da coluna seja atualizada automaticamente com base no texto mais longo dessa coluna, ou seja, quando inserir uma sequência de texto longa em uma célula, a largura da coluna será redimensionada automaticamente para se ajustar ao comprimento do conteúdo. Isso é possível de ser feito no Excel?

Ajustar automaticamente a largura das colunas com código VBA

Ajustar automaticamente a largura das colunas com atalhos de teclado

Ajustar automaticamente a largura das colunas com código VBA

Parece interessante fazer com que a largura da coluna seja atualizada automaticamente com o comprimento do conteúdo da célula; você pode usar o seguinte código VBA para concluir isso.

1. Pressione e segure as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique duas vezes em ThisWorkbook nos objetos do Projeto VBA no painel esquerdo para abrir um módulo em branco e, depois, copie e cole o seguinte código VBA no Módulo:

Código VBA: ajuste automático de coluna na pasta de trabalho

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

3. Depois, salve e feche este código, e agora, quando você inserir um texto longo em uma célula, a largura da coluna será ajustada automaticamente para se adaptar ao conteúdo.

Ajustar automaticamente a largura das colunas com atalhos de teclado

Se você tiver várias colunas com parte do conteúdo das células ocultas, como mostra a captura de tela a seguir, você pode querer redimensionar as larguras das colunas de uma só vez para se ajustarem aos seus conteúdos. Os seguintes atalhos de teclado podem ajudá-lo.

1. Selecione o intervalo de dados no qual deseja redimensionar a largura da coluna.

2. Mantenha pressionada a tecla Alt e pressione H + O + I, e agora suas larguras de coluna terão sido ajustadas automaticamente aos seus conteúdos imediatamente. Veja a captura de tela:

Observação: Se você estiver usando o Excel 2003 ou versões anteriores, precisará usar esses atalhos de teclado: ALT + O + C + A.

Artigos relacionados:

Como ajustar automaticamente a altura da linha de células mescladas no Excel?

Como redimensionar a altura da linha ou a largura da coluna para se ajustar ao texto no Excel?