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

No Excel, ajustar rapidamente e com precisão as alturas das linhas é crucial para apresentar seus dados de forma clara. Normalmente, você pode usar o recurso Ajustar Automaticamente Altura da Linha para redimensionar automaticamente a altura de uma linha para caber no conteúdo de suas células. No entanto, ao trabalhar com células mescladas, você pode notar que o Ajuste Automático de Altura da Linha não responde como esperado. Ou seja, a função Ajuste Automático do Excel ignora completamente as células mescladas, então você não pode redimensionar automaticamente a altura da linha para acomodar o conteúdo nesses casos. Como resultado, normalmente você precisa ajustar manualmente a altura da linha para cada célula mesclada para garantir que todo o conteúdo seja visível, o que pode ser tedioso e passível de erros — especialmente quando você tem muitas células mescladas.

Este artigo apresenta vários métodos práticos para ajudar a ajustar automaticamente a altura da linha de células mescladas de forma eficaz, economizando tempo e ajudando a manter uma planilha limpa e legível:

Ajustar automaticamente a altura da linha de células mescladas com código VBA

Usar Quebra de Texto e ajuste manual

Ajustar automaticamente a altura da linha de células mescladas com código VBA

Suponha que sua planilha contenha várias células mescladas com quantidades variadas de conteúdo, como mostrado na captura de tela abaixo. Se você deseja que todos os seus dados sejam totalmente visíveis sem ajustar manualmente cada linha, pode usar uma solução de código VBA para ajustar automaticamente a altura da linha para o conteúdo de cada célula mesclada de uma só vez. Esse método é especialmente útil quando você tem muitos intervalos mesclados em sua planilha ou quando o conteúdo das células mescladas é frequentemente atualizado e você deseja simplificar o processo de ajuste.

Antes de executar qualquer código VBA, lembre-se de salvar sua pasta de trabalho como um arquivo habilitado para macro para evitar a perda de trabalho não salvo. O VBA é um método seguro fornecido pelo Excel, mas certifique-se de que as macros estejam habilitadas e suas configurações de segurança permitam a execução de macros no sistema.

1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e, em seguida, copie e cole o seguinte código na Janela do Módulo:

Option 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 você precisar ajustar intervalos mesclados adicionais, basta copiar a linha Call AutoFitMergedCells(Range("a1:b2")) quantas vezes necessário e atualizar o endereço para cada intervalo mesclado que deseja ajustar automaticamente.

(2.) Lembre-se de alterar Plan4 no script para corresponder ao nome da planilha onde suas células mescladas estão localizadas. Se você não tiver certeza do nome da sua planilha, verifique as guias de planilha 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 seja incluída inadvertidamente nos intervalos selecionados, para evitar alterações de formatação inesperadas.

3. Pressione F5 para executar este código. Após a execução, todas as células mescladas especificadas ajustarão automaticamente sua altura de linha para exibir completamente o conteúdo das células, conforme ilustrado abaixo:

Essa solução VBA oferece uma maneira conveniente e automatizada de lidar com o dimensionamento de células mescladas. No entanto, ela requer acesso à guia Desenvolvedor e permissão para usar macros — tenha isso em mente se estiver colaborando em ambientes onde as macros estão desativadas ou restritas.

Usar Quebra de Texto e ajuste manual

Para muitos cenários, você pode combinar o recurso Quebra de Texto com um rápido ajuste manual da altura da linha para garantir que todo o conteúdo seja claramente visível sem depender de VBA ou ferramentas complexas.

Passo 1: Ativar Quebra de Texto

1. Selecione a(s) célula(s) mesclada(s) que deseja formatar.
2. Vá para a guia Página Inicial e clique em Quebra de Texto no grupo Alinhamento.

Isso permitirá que o conteúdo se ajuste automaticamente a novas linhas dentro da área mesclada.

Passo 2: Verifique a exibição e ajuste manualmente a altura da linha, se necessário

Se o seu texto não for muito longo, ele agora pode caber perfeitamente dentro da célula mesclada.

Se o conteúdo for mais longo e ainda não estiver totalmente visível, arraste manualmente a borda da linha abaixo da célula mesclada para aumentar a altura da linha até que todo o conteúdo seja exibido.

Artigo relacionado:

Como ajustar automaticamente a largura da coluna no Excel?