Como ajustar automaticamente a altura da linha de células mescladas no Excel?
No Excel, ajustar a altura da linha de forma rápida e precisa é essencial para apresentar os seus dados com clareza. Normalmente, pode utilizar a funcionalidade Ajuste automático da altura da linha para redimensionar automaticamente a altura de uma linha de modo a acomodar o respetivo conteúdo. Contudo, ao trabalhar com células mescladas, poderá notar que o Ajuste automático da altura da linha não funciona como esperado. Na verdade, o Excel ignora completamente as células mescladas ao aplicar o ajuste automático, não conseguindo assim redimensionar a altura da linha para exibir todo o conteúdo. Por conseguinte, terá normalmente de ajustar manualmente a altura da linha de cada célula mesclada para garantir que todo o conteúdo fique visível — um processo moroso e propenso a erros, especialmente quando tem muitas células mescladas.
Este artigo apresenta vários métodos práticos para ajudá-lo a ajustar automaticamente a Altura da Linha de Mesclado de forma eficaz, poupando tempo e mantendo uma folha de cálculo limpa e legível:
Ajuste automático da Altura da Linha de Mesclado com código VBA
Utilizar Texto ajustado e ajuste manual
Ajuste automático da Altura da Linha de Mesclado com código VBA
Suponha que a sua folha de cálculo contém várias células mescladas com quantidades variáveis de conteúdo, conforme ilustrado na imagem seguinte. Se pretender que todos os seus dados fiquem totalmente visíveis sem ter de ajustar manualmente cada linha, pode utilizar uma solução em código VBA para ajustar automaticamente a altura das linhas ao conteúdo de cada célula mesclada, tudo de uma só vez. Este método revela-se especialmente útil quando tem muitos intervalos mesclados na folha ou quando o conteúdo dessas células é atualizado frequentemente, permitindo-lhe simplificar significativamente o processo de ajuste.
Antes de executar qualquer código VBA, guarde a sua pasta de trabalho como um ficheiro ativado para macros para evitar perder alterações não guardadas. O VBA é um método seguro fornecido pelo Excel, mas certifique-se de que as macros estão ativadas e de que as definições de segurança do seu sistema permitem a respetiva execução.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e, de seguida, copie e cole o código seguinte na janela do Módulo:
Código VBA: Ajuste automático da Altura da Linha de múltiplas MescladoOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
Notas:
(1.) Se precisar de ajustar outros intervalos mesclados, basta copiar a linha Call AutoFitMergedCells(Range("a1:b2")) tantas vezes quanto necessário e atualizar o endereço de cada intervalo mesclado que pretende ajustar automaticamente.
(2.) Lembre-se de alterar Sheet4 no script para corresponder ao nome da folha onde estão localizadas as suas células mescladas. Caso não tenha a certeza do nome da folha, verifique o separador correspondente na parte inferior da janela do Excel.
(3.) Ao executar macros, certifique-se de que nenhuma célula contendo dados críticos ou sensíveis está incluída acidentalmente no intervalo selecionado, para evitar alterações inesperadas de formatação.
3. Prima F5 para executar este código. Após a execução, todas as células mescladas especificadas ajustarão automaticamente a sua altura de linha para exibir integralmente o conteúdo, conforme ilustrado abaixo:
Esta solução em VBA oferece uma forma conveniente e totalmente automatizada de gerir o dimensionamento de células mescladas. No entanto, exige acesso ao separador Programador e permissão para executar macros — um fator a considerar se estiver a colaborar num ambiente onde as macros estão desativadas ou sujeitas a restrições.
Utilizar Texto ajustado e ajuste manual
Em muitos cenários, pode combinar a funcionalidade Texto Ajustado com um rápido ajuste manual da altura da linha para garantir que todo o conteúdo fique claramente visível — sem precisar de VBA ou ferramentas complexas.
Passo 1: Ativar Texto ajustado
- Selecione a(s) célula(s) mesclada(s) que deseja formatar.
- Aceda ao separador Base e clique em Texto ajustado no grupo Alinhamento.
Isto permitirá que o conteúdo seja ajustado automaticamente em nova linha dentro da área mesclada.
Passo 2: Verificar a apresentação e ajustar manualmente a Altura da Linha, se necessário
Se o seu texto não for muito longo, caberá perfeitamente na célula mesclada.
Se o conteúdo for extenso e ainda não estiver totalmente visível, arraste manualmente a borda inferior da linha que contém a célula mesclada para aumentar a altura da linha até que todo o conteúdo seja exibido.
Artigo relacionado:
Como ajustar automaticamente a largura das colunas 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