Hogyan illeszthető be automatikusan az egyesített cellák sormagassága az Excel-be?

Az Excelben a sor használatával gyorsan beállíthatjuk a sor magasságát a cellatartalomhoz Automatikus méretezése Sor magassága funkció, de ez a függvény teljesen figyelmen kívül hagyja az egyesített cellákat. Vagyis nem alkalmazhatja a Automatikus méretezése Sor magassága funkcióval az egyesített cellák sormagasságának átméretezéséhez, egyesével manuálisan kell beállítania az egyesített cellák magasságát. Ebben a cikkben bemutathatok néhány gyors módszert a probléma megoldására.

Automatikus illesztés az egyesített cellák VBA-kóddal ellátott magassága

Automatikus illesztés az egyesített cellák VBA-kóddal ellátott magassága

Tegyük fel, hogy van egy munkalapom egyesített cellákkal, az alábbi képernyőkép szerint, és most át kell méreteznem a cellasor magasságát a teljes tartalom megjelenítéséhez, az alábbi VBA-kód segíthet abban, hogy automatikusan illessze több egyesített cella sormagasságát, kérjük, tegye meg alábbiak szerint:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

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

Megjegyzések:

(1.) A fenti kódban új tartományokat adhat hozzá, csak másolja Hívja az AutoFitMergedCells (Tartomány ("a1: b2")) szkriptet, ahányszor csak akarja, és módosítsa az egyesített cellatartományokat a kívántra.

(2.) És meg kell változtatnia az aktuális munkalap nevét Sheet4 használt lapnevedre.

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és most láthatja, hogy az összes egyesített cellát automatikusan illesztették a cellák tartalmához, lásd a képernyőképet:

Kapcsolódó cikk:

Hogyan illeszthető automatikusan az oszlopszélesség az Excel-be?