Hoppa till huvudinnehåll

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

doc infoga rad ovanför specifik text 1 2 doc infoga rad ovanför specifik text 2

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:

doc infoga rad ovanför specifik text 3

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.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

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:

doc infoga rad ovanför specifik text 5

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

doc infoga rad ovanför specifik text 6

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:

doc infoga rad ovanför specifik text 7 2 doc infoga rad ovanför specifik text 2

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


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

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

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

kte-flik 201905


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I try do it to put a blank row after every non-empty cell, but excel says. "That command cannot be used on multiple selections"
Why it dosnt work for me???
This comment was minimized by the moderator on the site
Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
This comment was minimized by the moderator on the site
This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
This comment was minimized by the moderator on the site
Hi, i have a similar problem as the one above. What if i want to select the cell below a specified criteria? For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
This comment was minimized by the moderator on the site
@SSJ did you ever find a solution?
This comment was minimized by the moderator on the site
Hello, guys,

To insert blank rows below a specific cell value, you can apply the following code:

Sub BlankLine()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step -1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "Mike" Then
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub

Please change the criteria "Mike" to your own cell value.

Hope it can help you, thank you!
This comment was minimized by the moderator on the site
thank you! its worked.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations