Hoppa till huvudinnehåll

Hur infogar jag en tom rad efter specifik text i Excel?

Om du vill infoga tomma rader efter en specifik text som följande skärmdump visas, hur hanterar du det snabbt och enkelt utan att infoga dem manuellt en efter en?

Infoga tomma rader efter specifik text med VBA-kod


Infoga tomma rader efter specifik text med VBA-kod

Du kan använda nedanstående VBA-kod för att infoga tomma rader efter den specifika texten du behöver, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Infoga tomma rader efter den specifika texten

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

Anmärkningar: I ovanstående kod kan du ändra textvärdet “Pågår”Till andra värden som du önskar från skriptet Om InStr (1, xRng.Cells (i, 1) .Värde, "Pågår")> 0 Då.

3. Tryck sedan på F5 nyckel för att köra den här koden, i dialogrutan popped out, välj kolumndata innehåller den specifika text du vill använda, se skärmdump:

4. Och klicka sedan på OK -knappen och de tomma raderna har infogats efter den angivna texten, se skärmdump:


Mer relativa artiklar för infoga rader:

  • Kopiera och infoga rad flera gånger eller duplicera rad X gånger
  • Har du någonsin försökt kopiera en rad eller varje rad i ditt dagliga arbete och sedan infoga flera gånger under den aktuella dataraden i ett kalkylblad? Till exempel har jag ett antal celler, nu vill jag kopiera varje rad och klistra in dem tre gånger till nästa rad enligt följande skärmdump. Hur kan du hantera det här jobbet i Excel?
  • Infoga tomma rader när värdet ändras i Excel
  • Om du antar att du har en rad data och nu vill du infoga tomma rader mellan data när värdet ändras, så att du kan separera samma sekventiella värden i en kolumn som följande skärmdumpar visas. I den här artikeln kommer jag att prata om några knep för att lösa detta problem.
  • Infoga tom rad ovanför specifik text i Excel
  • Har du någonsin försökt infoga tom rad ovanför en specifik text i en kolumn när du arbetar på ett kalkylblad? Till exempel finns det några namn i kolumn A, nu vill jag infoga tomma rader ovanför cellerna som innehåller namnet "Mike" som den vänstra skärmdumpen visas, kanske finns det inget direkt sätt för dig att lösa denna uppgift i Excel . Den här artikeln kommer jag att prata om några bra knep för att hantera detta jobb i Excel.

  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations