Hoe verplaatst u een gehele rij naar de onderkant van het huidige werkblad op basis van een celwaarde in Excel?
In Excel moet u uw gegevens vaak herorganiseren op basis van de status of waarde in een bepaalde kolom. Stel bijvoorbeeld dat u de voortgang van taken bijhoudt en alle rijen met de status „Done“ onderaan uw werkblad wilt plaatsen, zodat actieve of lopende taken bovenaan blijven. Het automatisch verplaatsen van gehele rijen op basis van een celwaarde maakt uw werkblad overzichtelijker, benadrukt prioriteiten en helpt u efficiënt te focussen op onafgeronde items.
Er zijn verschillende manieren om dit in Excel te realiseren, zoals het gebruik van VBA-code voor automatisering of het benutten van formules gecombineerd met de ingebouwde sorteermogelijkheden van Excel. Elke aanpak heeft zijn eigen sterke punten en is geschikt voor specifieke scenario’s. Hieronder vindt u stapsgewijze oplossingen om een gehele rij naar de onderkant van uw actieve werkblad te verplaatsen op basis van een bepaalde celwaarde.
- Verplaats Gehele rij naar de onderkant van Huidig werkblad op basis van celwaarde met VBA-code
- Verplaats Gehele rij naar de onderkant met behulp van Excel-formules en sorteren
Verplaats Gehele rij naar de onderkant van Huidig werkblad op basis van celwaarde met VBA-code
Stel dat u een tabel hebt waarin kolom C een status bevat, zoals „Done“, en u elke rij met „Done“ in kolom C direct naar het einde van uw gegevensbereik wilt verplaatsen. Deze VBA-oplossing is bijzonder handig als u een herhaalbaar, semi-geautomatiseerd proces zoekt dat dynamische gegevenswijzigingen verwerkt zonder handmatig te hoeven sorteren.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het venster.
VBA-code: Verplaats Gehele rij naar de onderkant van Huidig werkblad op basis van celwaarde
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End SubOpmerking: In deze VBA-code is de specifieke waarde „Done“. U kunt deze waarde in de code aanpassen naar de status die de rijverplaatsing moet activeren (bijvoorbeeld „Completed“ of een andere waarde die past bij uw workflow). Zorg ervoor dat de waarde exact overeenkomt, inclusief hoofdletters en spaties, of pas de code aan voor een hoofdletteronafhankelijke vergelijking indien nodig.
3. Druk op de toets F5 of klik op de knop Uitvoeren om de code uit te voeren. Selecteer in het verschijnende dialoogvenster Kutools voor Excel het kolombereik waarin de doelwaarde kan voorkomen en klik vervolgens op de knop OK.
Na bevestiging zoekt de code automatisch naar rijen met de waarde „Done“ in de geselecteerde kolom en verplaatst deze direct naar de onderkant van uw gegevensbereik — zodat u geen tijd hoeft te verspillen aan handmatig sorteren of rijen slepen.
Tips:
- Als u kopteksten hebt, zorg er dan voor dat u deze niet meeneemt in uw selectie wanneer daarom wordt gevraagd, zodat de rij met kopteksten niet per ongeluk wordt verplaatst.
- Dit VBA-script werkt alleen op het momenteel actieve werkblad. Moet u deze bewerking op meerdere bladen uitvoeren? Herhaal het proces dan voor elk afzonderlijk blad.
- Als uw gegevens formules of gekoppelde cellen bevatten, kan het verplaatsen van rijen ertoe leiden dat verwijzingen verschuiven. Controleer na het uitvoeren van de macro uw werkblad om de integriteit van de gegevens te waarborgen.
Deze VBA-methode blinkt uit wanneer u regelmatig grote hoeveelheden rijen moet verwerken, vooral als handmatig sorteren inefficiënt is. Wilt u echter liever geen macro’s gebruiken en direct werken met formules en standaard Excel-hulpmiddelen? Overweeg dan de volgende aanpak.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Verplaats Gehele rij naar de onderkant met behulp van Excel-formules en sorteren
Gebruikers die geen macro’s willen gebruiken of liever een transparantere, op formules gebaseerde aanpak hanteren om hun gegevens te beheren, kunnen hetzelfde resultaat bereiken met hulpkolommen en de ingebouwde sorteermogelijkheden van Excel. Deze methode is ideaal voor samenwerkingsomgevingen of wanneer bestanden worden gedeeld met anderen die mogelijk striktere macro-beveiligingsinstellingen hebben.
1. Voeg een nieuwe hulpkolom toe aan de linkerkant of rechterkant van uw bestaande gegevens. Stel: uw gegevenskoppen staan in rij 1, de waarden beginnen in rij 2 en uw status bevindt zich in kolom C. Voeg dan een nieuwe kolom D toe en noem deze bijvoorbeeld „SortKey“.
2. Voer in de eerste cel van de hulpkolom (exclusief koptekst, bijvoorbeeld D2) de volgende formule in:
=IF(C2="Done",1,0)Deze formule wijst rijen met „Done“ in kolom C de waarde 1 toe en alle andere rijen de waarde 0.
3. Druk op Enter om de formule te bevestigen en kopieer deze vervolgens naar alle rijen met gegevens. Sleep hiervoor de vulgreep vanuit cel D2 naar de laatste rij van uw gegevens, of dubbelklik op de vulgreep voor automatisch invullen als de aangrenzende kolom is gevuld.
4. Selecteer een willekeurige cel in uw gegevensbereik, ga vervolgens in het Excel-lint naar het tabblad Gegevens en klik op Sorteren.
5. Selecteer in het sorteerdialoogvenster de hulpkolom („SortKey“) in de vervolgkeuzelijst „Sorteren op“ en kies Kleinste naar grootste volgorde. Zo blijven alle rijen met „Done“ (gemarkeerd met 1) onderaan en de rest (gemarkeerd met 0) bovenaan.
6. Klik op OK om de sortering toe te passen. Uw gegevens worden nu zo herschikt dat alle voltooide of „Done”-items onderaan de tabel verschijnen.
Uitleg van parameters en tips:
- U kunt „Done“ in de formule vervangen door een andere statusindicator die relevant is voor uw werkblad, zoals „Completed“ of „Inactive“. Zorg ervoor dat de spelling exact overeenkomt met uw gegevens.
- Als u rijen met meerdere waarden wilt verplaatsen (bijvoorbeeld zowel „Done“ als „Canceled“), gebruikt u een formule zoals:
=IF(OR(C2="Done",C2="Canceled"),1,0) - Om het effect om te keren (d.w.z. „Done“-rijen bovenaan weer te geven), sorteert u in Grootste naar kleinste volgorde of verwisselt u 0 en 1 in de formule.
Deze aanpak verwijdert of verbergt geen rijen en behoudt uw gegevensstructuur volledig intact. Ze is perfect voor samenwerking met anderen, garandeert compatibiliteit tussen verschillende Excel-versies en voorkomt mogelijke problemen met macro-bestanden.
Gerelateerde artikelen:
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