Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe voeg ik een lege rij toe boven een specifieke tekst in Excel?

rij rij invoegen boven specifieke tekst 1  2 rij rij invoegen boven specifieke tekst 2

Heb je ooit geprobeerd om een ​​lege rij boven een specifieke tekst in een kolom in te voegen wanneer je aan een werkblad werkt? Er zijn bijvoorbeeld enkele namen in kolom A, nu wil ik lege rijen invoegen boven de cellen die de naam 'Mike' bevatten, zoals het linker screenshot wordt getoond, misschien zijn er geen directe manieren om deze taak in Excel op te lossen . In dit artikel zal ik ingaan op enkele goede trucs voor het omgaan met deze functie in Excel.

Voeg de lege rij boven de specifieke tekst in met VBA-code

Voeg de lege rij boven de specifieke tekst in met Kutools voor Excel


Selecteer specifieke tekst en voeg lege rijen erboven in:

Doordat uw bureau Kutools for Excel's Selecteer specifieke cellen hulpprogramma, kunt u snel de volledige rijen selecteren die de specifieke tekst of het gewenste nummer bevatten, waarna u de rijen zo snel mogelijk kunt verwijderen of bkank-rijen boven de tekst kunt invoegen.

rij rij invoegen boven specifieke tekst 8

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Voeg de lege rij boven de specifieke tekst in met VBA-code


Als u een lege rij boven de specifieke tekst handmatig één voor één wilt invoegen, wordt er veel tijd verspild, hier maak ik een VBA-code waarmee u de lege rij boven de specifieke celwaarde tegelijk invoegt.

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende macro in de module Venster.

VBA-code: voeg de lege rij boven de specifieke tekst snel in

Sub test1()
'updateby Extendoffice 20151030
    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 vervolgens op F5 toets om deze code uit te voeren en er verschijnt een dialoogvenster om u eraan te herinneren de kolomgegevens te selecteren die specifieke tekst bevatten die u boven de rij wilt invoegen, zie screenshot:

rij rij invoegen boven specifieke tekst 3

4. En klik vervolgens op OK knop, zijn de lege rijen ingevoegd boven de specifieke tekst "Mike".

Notes: In de bovenstaande code kunt u de tekstwaarde wijzigen "Mike"Naar eventuele andere waarden die u uit het script wenste Als InStr (1, xRng.Cells (i, 1) .Waarde, "Mike")> 0 Dan.


Voeg de lege rij boven de specifieke tekst in met Kutools voor Excel

Als je Kutools for Excel, Met Selecteer specifieke cellen functie, kunt u eerst de opgegeven celwaarden selecteren en vervolgens het gereedschap Bladrijen invoegen toepassen in Excel om de lege rijen tegelijk in te voegen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Selecteer het gegevensbereik dat u wilt gebruiken.

2. Dan klikken Kutools > kiezen > Selecteer specifieke cellenzie screenshot:

rij rij invoegen boven specifieke tekst 4

3. In de Selecteer specifieke cellen dialoogvenster, selecteer Cel onder de Selectie typeen geef vervolgens de criteria op die u nodig hebt onder de Specifiek type sectie, in dit geval zal ik kiezen Is gelijk aan van de Specifiek typeen voer de naam in die ik wil selecteren, zie screenshot:

rij rij invoegen boven specifieke tekst 5

4. Dan klikken Ok knop, alle cellen die Mike waarderen worden in één keer geselecteerd, zie screenshot:

rij rij invoegen boven specifieke tekst 6

5. Nadat u de specifieke tekstcellen heeft geselecteerd, klikt u op Home > bijvoegsel > Velrij invoegenen de lege rijen worden ingevoegd boven de geselecteerde tekst, zie schermafbeeldingen:

rij rij invoegen boven specifieke tekst 7  2 rij rij invoegen boven specifieke tekst 2

Download en proef Kutools nu voor Excel!


Demo: voeg de lege rij boven de specifieke tekst in met Kutools voor Excel

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JK · 1 years ago
    This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


    Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
  • To post as a guest, your comment is unpublished.
    SSJ · 3 years ago
    Hi, i have a similar problem as the one above.
    What if i want to select the cell below a specified criteria?

    For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
    • To post as a guest, your comment is unpublished.
      Shawn · 1 years ago
      @SSJ did you ever find a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, guys,

        To insert blank rows below a specific cell value, you can apply the following code:

        Sub BlankLine()
        Dim Rng As Range
        Dim WorkRng As Range
        On Error Resume Next
        xTitleId = "KutoolsforExcel"
        Set WorkRng = Application.Selection
        Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
        Set WorkRng = WorkRng.Columns(1)
        xLastRow = WorkRng.Rows.Count
        Application.ScreenUpdating = False
        For xRowIndex = xLastRow To 1 Step -1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "Mike" Then
        Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        End If
        Next
        Application.ScreenUpdating = True
        End Sub

        Please change the criteria "Mike" to your own cell value.

        Hope it can help you, thank you!