Ir para o conteúdo principal

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 característica. Às vezes, você gostaria que a largura da coluna fosse atualizada automaticamente com base no texto mais longo dessa coluna, ou seja, ao inserir uma sequência de texto longa na célula, a largura da coluna será redimensionada automaticamente para se ajustar ao 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


seta azul bolha direita 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

doc-autofit-coluna-largura-1

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.


seta azul bolha direita 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.

doc-autofit-coluna-largura-1

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:

doc-autofit-coluna-largura-1

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?

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations