Hvordan tilpasser man automatisk rækkehøjde af flettede celler i Excel?
I Excel kan vi hurtigt justere rækkehøjden, så den passer til celleindholdet ved hjælp af Autotilpas Rækkehøjde funktion, men denne funktion ignorerer flettede celler fuldstændigt. Det vil sige, du kan ikke anvende Autotilpas Rækkehøjde funktion for at ændre størrelsen på rækkehøjden for flettede celler, skal du manuelt justere rækkehøjden for flettede celler en efter en. I denne artikel kan jeg introducere nogle hurtige metoder til at løse dette problem.
Automatisk tilpasning af rækkehøjde af flettede celler med VBA-kode
Automatisk tilpasning af rækkehøjde af flettede celler med VBA-kode
Antag, at jeg har et regneark med nogle flettede celler som vist nedenstående skærmbillede, og nu skal jeg ændre størrelsen på celleliniehøjden for at få vist hele indholdet, nedenstående VBA-kode kan hjælpe dig med automatisk at tilpasse rækkehøjden på flere flettede celler, skal du gøre som følger:
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Automatisk tilpasning af rækkehøjde på flere flettede cellerOption 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
Bemærkninger:
(1.) I ovenstående kode kan du tilføje nye intervaller bare kopiere Ring til AutoFitMergedCells (Range ("a1: b2")) script mange gange, som du vil, og skift de flettede celleområder til dine behov.
(2.) Og du skal ændre det aktuelle regnearknavn Sheet4 til dit brugte arknavn.
3. Tryk derefter på F5 nøgle til at køre denne kode, og nu kan du se, at alle de flettede celler er blevet automatisk tilpasset deres celleindhold, se skærmbillede:
Relateret artikel:
Hvordan tilpasser man automatisk søjlebredde i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!