Hoe de rijhoogte automatisch aanpassen voor samengevoegde cellen in Excel?
In Excel is het snel en nauwkeurig aanpassen van rijhoogtes cruciaal om uw gegevens duidelijk te presenteren. Normaal gesproken kunt u de functie Rijhoogte Automatisch Aanpassen gebruiken om de hoogte van een rij automatisch aan te passen aan de inhoud van de cellen. Echter, bij het werken met samengevoegde cellen, merkt u mogelijk dat 'Rijhoogte Automatisch Aanpassen' niet zoals verwacht reageert. Dat wil zeggen, de functie 'Automatisch Aanpassen' van Excel negeert samengevoegde cellen volledig, dus u kunt de rijhoogte niet automatisch aanpassen om de inhoud in deze gevallen te accommoderen. Als gevolg hiervan moet u doorgaans handmatig de rijhoogte voor elke samengevoegde cel aanpassen om ervoor te zorgen dat alle inhoud zichtbaar is, wat tijdrovend en foutgevoelig kan zijn - vooral wanneer u veel samengevoegde cellen heeft.
Dit artikel introduceert verschillende praktische methoden om de rijhoogte van samengevoegde cellen effectief automatisch aan te passen, wat u tijd bespaart en helpt een netwerkblad dat goed leesbaar blijft te behouden:
Rijhoogte automatisch aanpassen voor samengevoegde cellen met VBA-code
Gebruik Tekstomloop en handmatige aanpassing
Rijhoogte automatisch aanpassen voor samengevoegde cellen met VBA-code
Stel dat uw werkblad verschillende samengevoegde cellen bevat met variërende hoeveelheden inhoud, zoals weergegeven in de onderstaande schermafbeelding. Als u wilt dat al uw gegevens volledig zichtbaar zijn zonder elke rij handmatig aan te passen, kunt u een VBA-codeoplossing gebruiken om de rijhoogte automatisch aan te passen aan de inhoud van elke samengevoegde cel in één keer. Deze methode is vooral handig wanneer u veel samengevoegde bereiken in uw blad hebt, of wanneer de inhoud van samengevoegde cellen vaak wordt bijgewerkt en u het aanpassingsproces wilt stroomlijnen.
Voordat u VBA-code uitvoert, vergeet dan niet uw werkmap op te slaan als een macro-ondersteund bestand om verlies van niet-opgeslagen werk te voorkomen. VBA is een veilige methode die door Excel wordt aangeboden, maar zorg ervoor dat macro's zijn ingeschakeld en uw beveiligingsinstellingen het uitvoeren van macro's op uw systeem toestaan.
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, kopieer en plak vervolgens de volgende code in het Modulevenster:
VBA-code: Rijhoogte automatisch aanpassen voor meerdere samengevoegde cellenOption 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
Opmerkingen:
(1.) Als u extra samengevoegde bereiken moet aanpassen, kopieert u eenvoudig de regel Call AutoFitMergedCells(Range("a1:b2")) zo vaak als nodig en werkt u het adres bij voor elk samengevoegd bereik dat u automatisch wilt aanpassen.
(2.) Vergeet niet Sheet4 in het script te wijzigen om overeen te komen met de naam van het werkblad waar uw samengevoegde cellen zich bevinden. Als u niet zeker bent van uw werkbladnaam, controleert u de bladtabs onderaan uw Excel-venster.
(3.) Bij het uitvoeren van macro's, zorg ervoor dat geen cellen met kritieke of gevoelige gegevens per ongeluk zijn opgenomen in de geselecteerde bereiken om onverwachte opmaakwijzigingen te voorkomen.
3. Druk op F5 om deze code uit te voeren. Na uitvoering zullen alle gespecificeerde samengevoegde cellen hun rijhoogte automatisch aanpassen om alle celinhoud volledig weer te geven, zoals hieronder geïllustreerd:
Deze VBA-oplossing biedt een handige, geautomatiseerde manier om de afmetingen van samengevoegde cellen te beheren. Dit vereist echter toegang tot het tabblad Ontwikkelaar en toestemming om macro's te gebruiken - houd dit in gedachten als u samenwerkt in omgevingen waar macro's zijn uitgeschakeld of beperkt.
Gebruik Tekstomloop en handmatige aanpassing
In veel scenario's kunt u de functie Tekstomloop combineren met een snelle handmatige aanpassing van de rijhoogte om ervoor te zorgen dat alle inhoud duidelijk zichtbaar is zonder afhankelijk te zijn van VBA of complexe tools.
Stap 1: Schakel Tekstomloop in
- Selecteer de samengevoegde cel(len) die u wilt formatteren.
- Ga naar het tabblad Start en klik op Tekstomloop in de groep Uitlijning.
Hierdoor zal de inhoud automatisch naar nieuwe regels binnen het samengevoegde gebied worden verplaatst.
Stap 2: Controleer weergave en pas de rijhoogte handmatig aan indien nodig
Als uw tekst niet erg lang is, past deze nu mogelijk perfect in de samengevoegde cel.
Als de inhoud langer is en nog steeds niet volledig zichtbaar is, sleept u handmatig de grens onder de samengevoegde cel om de rijhoogte te vergroten totdat alle inhoud wordt weergegeven.
Gerelateerd artikel:
Hoe de kolombreedte automatisch aanpassen in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen