Hoppa till huvudinnehåll

Hur infogar jag tom rad ovanför specifik text i Excel?

Författare: Xiaoyang Senast ändrad: 2024-09-24
ursprungliga data pil till höger infoga raden ovanför specifik text

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:

vba-kod för att välja dataintervall

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 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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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:

klicka på funktionen Välj specifika celler i kutools

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:

ställ in kriterier i dialogrutan

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

alla celler med den specifika texten är markerade

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

klicka på Hem > Infoga > Infoga arkrader pil till höger tomma rader infogas ovanför den markerade texten

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


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

 

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...


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!