Hoe voegt u een lege rij boven een specifieke tekst in Excel in?
 |  |  |
Wanneer u aan een werkblad werkt, heeft u dan ooit geprobeerd lege rijen boven een specifieke tekst in een kolom in te voegen? Stel bijvoorbeeld dat er enkele namen in kolom A staan en u wilt lege rijen invoegen boven elke cel met de naam „Mike”, zoals te zien is op de linker screenshot. Hoewel Excel hiervoor geen directe functie biedt, bespreek ik in dit artikel enkele handige trucs om deze taak eenvoudig uit te voeren.
Lege rij boven specifieke tekst invoegen met VBA-code
Lege rij boven specifieke tekst invoegen met Kutools voor Excel
Lege rij boven specifieke tekst invoegen met VBA-code
Het handmatig één voor één invoeren van een lege rij boven specifieke tekst kost veel tijd. Daarom heb ik voor u een VBA-code gemaakt waarmee u in één keer een lege rij boven een bepaalde celwaarde kunt invoegen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak vervolgens de volgende macro in het Module-venster.
VBA-code: Lege rij snel boven specifieke tekst invoegen
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt dan een dialoogvenster waarin u wordt gevraagd de kolomgegevens te selecteren die de specifieke tekst bevatten boven welke u een rij wilt invoegen; zie screenshot:
4. Klik vervolgens op de knop OK; er zijn nu lege rijen ingevoegd boven de specifieke tekst „Mike”.
Opmerking: In de bovenstaande code kunt u de tekstwaarde „Mike” vervangen door elke andere gewenste waarde in de regel If InStr(1, xRng.Cells(i, 1).Value, „Mike") > 0Then.
Lege rij boven specifieke tekst invoegen met Kutools voor Excel
Als u Kutools voor Excel hebt, kunt u met de functie Specifieke cellen selecteren eerst de gewenste celwaarden selecteren en vervolgens het Excel-hulpprogramma Rijen invoegen gebruiken om in één keer lege rijen in te voegen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer het gegevensbereik dat u wilt gebruiken.
2. Klik daarna op Kutools > Selecteren > Specifieke cellen selecteren; zie screenshot:
3. In het dialoogvenster Specifieke cellen selecteren selecteert u Cel onder Selecteer type en geeft u daarna onder het gedeelte Specificeer type de gewenste criteria op. In dit geval kies ik Gelijk aan in de vervolgkeuzelijst Specificeer type en voer ik de naam in die ik wil selecteren; zie screenshot:
4. Klik daarna op de knop Ok; alle cellen met de waarde Mike worden nu tegelijk geselecteerd; zie screenshot:
5.Nadat u de cellen met de specifieke tekst hebt geselecteerd, klikt u op Start>Invoegen>Werkbladrijen invoegen; de Lege rijen worden dan boven de geselecteerde tekst ingevoegd; zie screenshots:
 | | |
Download en gratis proefversie van Kutools voor Excel nu!
Demo: Lege rij boven specifieke tekst invoegen met Kutools voor 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