Note: The other languages of the website are Google-translated. Back to English

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å Start > 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!

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.
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!
officetab botten
Sortera kommentarer efter
Kommentarer (7)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag har ett liknande problem som ovan. Vad händer om jag vill välja cellen under ett angivet kriterium? Du kan till exempel använda exemplet från ovan. jag vill välja cellen under "Mike". finns det någon enkel utväg?
Denna kommentar minimerades av moderatoren på webbplatsen
@SSJ hittade du någon lösning?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej grabbar,

För att infoga tomma rader under ett specifikt cellvärde kan du använda följande kod:

Sub BlankLine()
Dim Rng som intervall
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
För xRowIndex = xLastRow Till 1 Steg -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Om Rng.Value = "Mike" Då
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Nästa
Application.ScreenUpdating = True
End Sub

Vänligen ändra kriterierna "Mike" till ditt eget cellvärde.

Hoppas det kan hjälpa dig, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
tack! det fungerade.
Denna kommentar minimerades av moderatoren på webbplatsen
Detta har varit fantastiskt för den data jag har. Jag undrar om du kunde hjälpa mig ett steg längre. Jag har kunnat dela upp min data utifrån detta, men då måste jag färgkoda mina datagrupper. När jag delar upp min data har jag ett variabelt antal rader från 1-50, och jag har 36 kolumner med data inklusive 32 kolumner som jag behöver för att jämföra värdena i den översta raden. Jag väljer för närvarande varje grupp manuellt (separerade med en tom rad) och använder sedan ctrl+shift+| för att markera kolumnskillnader och formatera dessa celler för att markera skillnaderna.


Finns det någon som kan skriva en kod för att välja och formatera dessa kolumnskillnader inom grupperingarna, med den tomma raden som avgränsare?
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det ett sätt att inte visas en dialogruta med pop-out för att påminna mig om att välja kolumndata som innehåller specifik text som jag vill infoga raden ovan, Om en specificerad cell är fylld med data, kör sedan processen automatiskt utan uppmaningar och infoga raden ovanför?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker göra det för att sätta en tom rad efter varje icke-tom cell, men excel säger. "Det kommandot kan inte användas på flera val"
Varför fungerar det inte för mig???
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL