Hoe past u de rijhoogte van samengevoegde cellen automatisch aan in Excel?
In Excel is het snel en nauwkeurig aanpassen van de rijhoogte essentieel om uw gegevens duidelijk weer te geven. Normaal gesproken kunt u de functie Automatisch aanpassen rijhoogtegebruiken om de rijhoogte automatisch aan te passen aan de inhoud van de cellen. Wanneer u echter met samengevoegde cellen werkt, zult u merken dat Automatisch aanpassen rijhoogte niet werkt zoals verwacht. Excel negeert namelijk samengevoegde cellen volledig bij het automatisch aanpassen, waardoor de rijhoogte in deze gevallen niet automatisch wordt afgestemd op de inhoud. Daarom moet u de rijhoogte van elke samengevoegde cel meestal handmatig aanpassen om ervoor te zorgen dat alle inhoud zichtbaar blijft — een tijdrovend en foutgevoelig proces, zeker als u veel samengevoegde cellen gebruikt.
Dit artikel beschrijft verschillende praktische methoden om de Rijhoogte van Samengevoegd effectief automatisch aan te passen, zodat u tijd bespaart en een overzichtelijk en leesbaar werkblad behoudt:
Pas de Rijhoogte van Samengevoegd automatisch aan met VBA-code
Gebruik Tekstterugloop en handmatige aanpassing
Pas de Rijhoogte van Samengevoegd automatisch aan met VBA-code
Stel dat uw werkblad verschillende Samengevoegd bevat met wisselende hoeveelheden inhoud, zoals op de onderstaande schermafbeelding. Als u wilt dat al uw gegevens volledig zichtbaar zijn zonder elke rij handmatig aan te passen, kunt u een VBA-oplossing gebruiken om de Rijhoogte tegelijkertijd automatisch aan te passen aan de inhoud van elke samengevoegde cel. Deze methode is vooral handig als u veel samengevoegde bereiken in uw werkblad hebt of als de inhoud van samengevoegde cellen regelmatig wordt bijgewerkt en u het aanpassingsproces wilt stroomlijnen.
Sla uw werkmap vóór het uitvoeren van VBA altijd op als een bestand met macro-ondersteuning om verlies van niet-opgeslagen werk te voorkomen. VBA is een veilige methode die door Excel wordt geboden, maar zorg ervoor dat macro’s zijn ingeschakeld en dat uw beveiligingsinstellingen het uitvoeren van macro’s op uw systeem toestaan.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, kopieer de volgende code en plak deze in het Modulevenster:
VBA-code: Pas de Rijhoogte van meerdere Samengevoegd automatisch aanOption 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 wilt aanpassen, kopieert u de regel Call AutoFitMergedCells(Range("a1:b2")) zo vaak als nodig en past u het celadres aan voor elk samengevoegd bereik dat u automatisch wilt aanpassen.
(2.) Pas Sheet4 in het script aan zodat deze overeenkomt met de werkbladnaam waar uw samengevoegde gegevens zich bevinden. Weet u niet zeker wat uw werkbladnaam is? Controleer dan de bladtab onderaan uw Excel-venster.
(3.) Zorg er bij het uitvoeren van macro’s voor dat cellen met kritieke of gevoelige gegevens niet per ongeluk worden opgenomen in het geselecteerde bereik, zodat onverwachte opmaakwijzigingen worden voorkomen.
3. Druk op F5 om deze code uit te voeren. Na uitvoering passen alle opgegeven samengevoegde cellen hun rijhoogte automatisch aan, zodat de celinhoud volledig zichtbaar is, zoals hieronder wordt geïllustreerd:
Deze VBA-oplossing biedt een handige, geautomatiseerde manier om de grootte van samengevoegde cellen te beheren. Het vereist echter toegang tot het tabblad Ontwikkelaars en toestemming om macro’s te gebruiken — houd hier rekening mee als u samenwerkt in omgevingen waar macro’s zijn uitgeschakeld of beperkt.
Gebruik Tekstterugloop en handmatige aanpassing
In veel scenario’s kunt u de functie Tekstterugloop 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 hulpmiddelen.
Stap 1: Schakel Tekstterugloop in
- Selecteer de samengevoegde cel(len) die u wilt opmaken.
- Ga naar het tabblad Start en klik op Tekstterugloop in de groep Uitlijning.
Hierdoor wordt de inhoud automatisch teruggevouwen naar een nieuwe regel binnen het samengevoegde gebied.
Stap 2: Controleer de weergave en pas de Rijhoogte indien nodig handmatig aan
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 rijgrens onder de samengevoegde cel om de Rijhoogte te vergroten totdat alle inhoud wordt weergegeven.
Gerelateerd artikel:
Hoe past u automatisch de Kolombreedte aan in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins