Como ajustar automaticamente a largura das colunas no Excel?
No Excel, pode ajustar a largura da coluna para a adaptar rapidamente ao conteúdo das células utilizando a funcionalidade Ajuste Automático da Largura da ColunaPor vezes, gostaria que a largura da coluna fosse ajustada automaticamente ao texto mais longo nessa coluna — ou seja, ao inserir uma cadeia de texto extensa numa célula, a coluna redimensionar-se-ia de imediato para acomodar todo o conteúdo. Será isto possível no Excel?
Ajustar automaticamente Largura da Coluna com código VBA
Ajustar automaticamente Largura da Coluna com teclas de atalho
Ajustar automaticamente Largura da Coluna com código VBA
Parece interessante fazer com que o Largura da Coluna seja atualizado automaticamente de acordo com o comprimento do conteúdo da célula. Pode utilizar o seguinte código VBA para o conseguir.
1. Mantenha premidas as teclas ALT + F11 e abrir-se-á a janela Microsoft Visual Basic for Applications.
2.Em seguida, faça duplo clique em ThisWorkbooknos objetos do Projeto VBAno painel esquerdo para abrir um módulo em branco e, de seguida, copie e cole o seguinte código VBA no Módulo:
Código VBA: ajustar automaticamente colunas no livro
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, guarde e feche este código e, a partir de agora, sempre que introduzir texto longo numa célula, a largura da coluna ajustar-se-á automaticamente ao respetivo conteúdo.
Ajustar automaticamente Largura da Coluna com teclas de atalho
Se tiver várias colunas cujo conteúdo parcial está oculto, como mostra a seguinte imagem, e pretender redimensionar as Largura da Coluna de uma só vez para se adaptarem ao seu conteúdo, as seguintes teclas de atalho poderão ajudá-lo.
1. Selecione o intervalo de dados cuja largura das colunas pretende redimensionar.
2. Mantenha premida a tecla Alt e prima H + O + I. As larguras das colunas ajustam-se automaticamente ao respetivo conteúdo de imediato. Veja a imagem:
Nota: Se estiver a utilizar o Excel 2003 ou versões anteriores, terá de utilizar estas teclas de atalho: ALT + O + C + A.
Artigos relacionados:
Como ajustar automaticamente Altura da Linha de Mesclado no Excel?
Como redimensionar Altura da Linha ou Largura da Coluna para se adaptarem ao texto no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos