Hur infogar jag 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.

Infoga tom rad ovanför specifik text med VBA-kod

Infoga tom rad ovanför specifik text med Kutools för Excel

Infoga tom rad ovanför specifik text med VBA-kod

För att infoga tom rad ovanför den specifika texten manuellt kommer en och en att slösa mycket tid, här skapar jag en VBA-kod för att du ska kunna infoga den tomma raden ovanför specifikt cellvärde på en gång.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra sedan in följande makro i Modulerna Fönster.

VBA-kod: Infoga snabbt tom rad ovanför specifik text

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. Tryck sedan på F5 nyckel för att köra den här koden, och en dialogruta dyker upp för att påminna dig om att du väljer kolumndata som innehåller specifik text som du vill infoga raden ovan, se skärmdump:

4. Och klicka sedan på OK -knappen har de tomma raderna infogats ovanför den specifika texten ”Mike”.

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

Infoga tom rad ovanför specifik text med Kutools för Excel

Om du har Kutools för Excel, med dess Välj specifika celler Du kan välja de angivna cellvärdena först och sedan använda verktyget Infoga arkrader i Excel för att infoga de tomma raderna på en gång.

När du har installerat Kutools för Excel, gör så här:

1. Välj det dataområde du vill använda.

2. Klicka sedan Kutools > Välja > Välj specifika celler, se skärmdump:

3. I Välj specifika celler dialogrutan väljer du Cell under Urvalstypoch ange sedan de kriterier som du behöver under Specifik typ avsnitt, i det här fallet väljer jag lika från Specifik typ, och ange namnet som jag vill välja, se skärmdump:

4. Klicka sedan Ok -knappen, alla celler som är Mike är markerade på en gång, se skärmdump:

5. När du har valt specifika textceller klickar du på Start > Insert > Infoga arkrader, och de tomma raderna infogas ovanför den markerade texten, se skärmdumpar:

 Ladda ner och testa gratis Kutools för Excel nu!

Demo: Infoga tom rad ovanför specifik text med Kutools för Excel

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• 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 utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... 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 ...
• 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...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• 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!

Läs mer... Gratis nedladdning... Köp...