Como ajustar automaticamente a largura da coluna no Excel?

No Excel, você pode ajustar a largura da coluna para caber no conteúdo da célula rapidamente usando o AutoAjustar largura da coluna recurso. Às vezes, você gostaria que a largura da coluna fosse atualizada automaticamente com base no texto mais longo daquela coluna, ou seja, ao inserir alguma sequência de texto longa na célula, a largura da coluna será redimensionada automaticamente para caber no comprimento do conteúdo. É possível lidar com isso no Excel?

Ajuste automático da largura das colunas com código VBA

Ajuste automático da largura das colunas com teclas de atalho

Ajuste automático da largura das colunas com código VBA

Parece que fazer a largura da coluna atualizada automaticamente com o comprimento do conteúdo da célula é um truque interessante, você pode usar o seguinte código VBA para finalizá-lo.

1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

2. Em seguida, clique duas vezes Esta pasta de trabalho no Projeto VBA objetos no painel esquerdo para abrir um módulo em branco e, em seguida, copie e cole o seguinte código VBA no módulo:

Código VBA: coluna de ajuste automático com 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. Em seguida, salve e feche esse código e, agora, ao inserir um texto longo em uma célula, a largura da coluna será ajustada para se ajustar ao conteúdo automaticamente.

Ajuste automático da largura das colunas com teclas de atalho

Se você tiver várias colunas com parte do conteúdo da célula oculta conforme a captura de tela mostrada a seguir, você deseja redimensionar as larguras das colunas de uma vez para ajustar seu conteúdo. As seguintes teclas de atalho podem ajudá-lo.

1. Selecione o intervalo de dados que você deseja redimensionar a largura da coluna.

2. Calma outro pressione e pressione H + O + I, e agora as larguras das colunas foram automaticamente ajustadas ao conteúdo imediatamente. Veja a imagem:

Nota: Se estiver usando o Excel 2003 e uma versão anterior, você precisará usar estas teclas de atalho: 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 largura da coluna para ajustar o texto no Excel?