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
Note: 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 snel meerdere rijen of kolommen in Google Spreadsheets in
- In dit artikel zal ik een eenvoudige manier introduceren om meerdere lege rijen of kolommen in een Google-blad in te voegen.
- 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.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- 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...
- 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!