Come adattare automaticamente l'altezza delle righe delle celle unite in Excel?

In Excel, possiamo regolare rapidamente l'altezza della riga per adattarla al contenuto della cella utilizzando il Adatta Altezza riga caratteristica, ma questa funzione ignorerà completamente le celle unite. Vale a dire, non puoi applicare il Adatta Altezza riga funzione per ridimensionare l'altezza della riga delle celle unite, è necessario regolare manualmente l'altezza della riga per le celle unite una per una. In questo articolo, posso introdurre alcuni metodi rapidi per risolvere questo problema.

Adatta automaticamente l'altezza della riga delle celle unite con il codice VBA

Adatta automaticamente l'altezza della riga delle celle unite con il codice VBA

Supponendo di avere un foglio di lavoro con alcune celle unite come mostrato nella seguente schermata, e ora ho bisogno di ridimensionare l'altezza della riga della cella per visualizzare l'intero contenuto, il codice VBA sottostante potrebbe aiutarti ad adattare automaticamente l'altezza della riga di più celle unite, per favore fallo come segue:

1. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

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

Note:

(1.) Nel codice sopra, puoi aggiungere nuovi intervalli semplicemente copiarli Chiama AutoFitMergedCells (Range ("a1: b2")) script quante volte vuoi e modifica gli intervalli di celle unite in base alle tue esigenze.

(2.) E dovresti cambiare il nome del foglio di lavoro corrente Sheet4 al nome del foglio utilizzato.

3. Quindi premere F5 chiave per eseguire questo codice e ora puoi vedere che tutte le celle unite sono state adattate automaticamente al contenuto delle celle, vedi screenshot:

Articolo correlato:

Come adattare automaticamente la larghezza della colonna in Excel?