Hoe voegt u een randlijn onderaan toe wanneer de waarde verandert in een Excel-kolom?

Het toevoegen van randlijnen onder rijen wanneer de waarde in een kolom verandert, is een handige opmaaktechniek in Excel. Hiermee kunt u gegevens visueel opdelen in overzichtelijke secties, wat het lezen en analyseren vergemakkelijkt. Of u nu werkt met verkoopgegevens, inventarislijsten of rapporten, deze handleiding laat u verschillende methoden zien om dit te bereiken.

Randlijn onderaan toevoegen wanneer waarde verandert met VBA

Randlijn onderaan toevoegen wanneer waarde verandert met Kutools voor Excel

Randlijn onderaan toevoegen wanneer waarde verandert met VBA

Het is duidelijk dat er geen ingebouwde functie in Excel bestaat om automatisch een randlijn onderaan toe te voegen wanneer een waarde verandert, maar ik kan u wel een VBA-code laten zien die dit mogelijk maakt.

1. Druk op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module" en plak de onderstaande code in het lege "Module"-venster.

VBA: randlijn onderaan toevoegen wanneer waarde verandert

Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
    Application.ScreenUpdating = False
    Dim LastRow As Long
    Dim xrg As Range
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For Each xrg In Range("A2:A" & LastRow)
        If xrg <> xrg.Offset(1, 0) Then
            Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next xrg
    Application.ScreenUpdating = True
End Sub

3. Druk op de "F5"-toets om de code uit te voeren. Vervolgens worden er randlijnen toegevoegd onder de cellen waar de waarde verandert in het bereik A2:A.

Opmerking: In de VBA-code is A2:A het bereik waarin u een randlijn onderaan wilt toevoegen wanneer de waarde verandert. U kunt dit bereik aanpassen naar uw eigen situatie.

Randlijn onderaan toevoegen wanneer waarde verandert met Kutools voor Excel

Met "Kutools voor Excel" kunt u eenvoudig randlijnen onder rijen toevoegen waar de waarden in een specifieke kolom veranderen—zonder ingewikkelde VBA-code of handmatig werk!

Na installatie van Kutools voor Excel klikt u op "Kutools" > "Opmaak" > "Markeer wijzigingen in kolom" om het dialoogvenster te openen. In het dialoogvenster "Markeer wijzigingen in kolom" voert u de volgende stappen uit:

1. Selecteer het gegevensbereik waarmee u wilt werken;
2. Selecteer de sleutelkolom waarop u de rand wilt invoegen;
3. Vink het gedeelte "Onderste rand" aan en geef de gewenste randstijl en randkleur op;
4. Klik tot slot op de knop "OK".

Resultaat: Nu zijn de randen toegevoegd onder de rijen wanneer de waarde verandert in kolom A. Zie screenshot:

Een randlijn onder rijen toevoegen wanneer een waarde verandert in Excel, verbetert de leesbaarheid en structuur van uw gegevens. Kies de methode die past bij de omvang en complexiteit van uw dataset en maak uw Excel-spreadsheets overzichtelijker en eenvoudiger te interpreteren! Wilt u meer Excel-tips en -trucs ontdekken, dan vindt u op onze website duizenden tutorials.