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

No Excel, podemos ajustar rapidamente a altura da linha para caber no conteúdo da célula usando o AutoAjustar Altura da linha recurso, mas esta função irá ignorar completamente as células mescladas. Ou seja, você não pode aplicar o AutoAjustar Altura da linha recurso para redimensionar a altura da linha das células mescladas, você precisa ajustar manualmente a altura da linha para as células mescladas, uma a uma. Neste artigo, posso apresentar alguns métodos rápidos para resolver esse problema.

Ajuste automático da altura da linha de células mescladas com código VBA

Ajuste automático da altura da linha de células mescladas com código VBA

Supondo que eu tenha uma planilha com algumas células mescladas conforme a captura de tela mostrada a seguir, e agora eu precise redimensionar a altura da linha da célula para exibir todo o conteúdo, o código VBA abaixo pode ajudá-lo a ajustar automaticamente a altura da linha de várias células mescladas. do seguinte modo:

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

2. Clique inserção > Móduloe cole o seguinte código no Janela 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

Observações:

(1.) No código acima, você pode adicionar novos intervalos, basta copiar Chame AutoFitMergedCells (Range ("a1: b2")) faça o script quantas vezes quiser e altere os intervalos de células mesclados de acordo com suas necessidades.

(2.) E você deve alterar o nome da planilha atual Sheet4 ao nome da folha usada.

3. Então aperte F5 para executar este código, e agora você pode ver que todas as células mescladas foram ajustadas automaticamente ao conteúdo da célula, consulte a captura de tela:

Artigo relacionado:

Como ajustar automaticamente a largura da coluna no Excel?