Note: The other languages of the website are Google-translated. Back to English

Hoe voeg ik een lege rij in na specifieke tekst in Excel?

Als u lege rijen na een specifieke tekst wilt invoegen zoals in de onderstaande schermafbeelding wordt getoond, hoe kunt u er dan snel en gemakkelijk mee omgaan zonder ze een voor een handmatig in te voegen?

Voeg lege rijen in na specifieke tekst met VBA-code


Voeg lege rijen in na specifieke tekst met VBA-code

U kunt de onderstaande VBA-code toepassen om lege rijen in te voegen na de specifieke tekst die u nodig hebt, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: voeg lege rijen in na de specifieke tekst

Sub Insertrowbelow()
'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, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

Opmerking:: In de bovenstaande code kunt u de tekstwaarde wijzigen "Bezig”Naar andere waarden die u uit het script wilt Als InStr (1, xRng.Cells (i, 1) .Value, "In progressing")> 0 Then.

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, selecteer in het uitgeklapte dialoogvenster de kolomgegevens die de specifieke tekst bevatten die u wilt gebruiken, zie screenshot:

4. En klik dan OK knop, en de lege rijen zijn ingevoegd na de bepaalde tekst die je hebt opgegeven, zie screenshot:


Meer relatieve artikelen invoegen rijen:

  • Kopieer en voeg rij meerdere keren in of dupliceer de rij X keer
  • Heeft u in uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige gegevensrij in een werkblad in te voegen? Ik heb bijvoorbeeld een celbereik, nu wil ik elke rij kopiëren en ze 3 keer in de volgende rij plakken zoals in het volgende screenshot. Hoe kon je deze klus in Excel afhandelen?
  • Voeg lege rijen in wanneer waarde verandert in Excel
  • Stel dat u een gegevensbereik heeft en u wilt nu lege rijen tussen de gegevens invoegen wanneer de waarde verandert, zodat u de opeenvolgende dezelfde waarden in één kolom kunt scheiden, zoals in de volgende schermafbeeldingen. In dit artikel zal ik enkele trucs voor je bespreken om dit probleem op te lossen.
  • Voeg lege rij in boven specifieke tekst in Excel
  • Heeft u ooit geprobeerd een lege rij in te voegen boven een specifieke tekst in een kolom wanneer u 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 laat zien, misschien is er geen directe manier om deze taak in Excel op te lossen . In dit artikel zal ik het hebben over enkele goede trucs voor het omgaan met deze taak in Excel.

  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (2)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Dit is zo handig! Maar hoe voeg ik nieuwe rijen toe na verschillende teksten. Ik wil bijvoorbeeld een rij toevoegen na SB2 en BB2, kan dit? of moet ik het gewoon twee keer uitvoeren met twee verschillende teksten?
Deze opmerking is gemaakt door de moderator op de site
U kunt de textjoin-functie gebruiken door hetzelfde woord aan het einde van elke regel toe te voegen en dat woord vervolgens te verwijderen met ctrl+f
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL