Preskoči na glavno vsebino

Kako v Excel vstaviti prazno vrstico nad določeno besedilo?

doc vstavi vrstico nad določeno besedilo 1 2 doc vstavi vrstico nad določeno besedilo 2

Ali ste pri delu na delovnem listu kdaj poskusili v stolpec vstaviti prazno vrstico nad določeno besedilo? Na primer, v stolpcu A je nekaj imen. Zdaj želim vstaviti prazne vrstice nad celicami, ki vsebujejo ime "Mike", kot je prikazano na levi sliki zaslona, ​​morda v Excelu ne morete rešiti te naloge neposredno . V tem članku bom spregovoril o nekaj dobrih trikih za reševanje tega dela v Excelu.

Vstavite prazno vrstico nad določeno besedilo s kodo VBA

Vstavite prazno vrstico nad določeno besedilo s programom Kutools za Excel


Vstavite prazno vrstico nad določeno besedilo s kodo VBA

Če ročno vstavite prazno vrstico nad določeno besedilo, boste zapravili veliko časa, tukaj bom ustvaril kodo VBA, v katero boste naenkrat vstavili prazno vrstico nad določeno vrednost celice.

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin nato v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: Hitro vstavite prazno vrstico nad določeno besedilo

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. Nato pritisnite F5 za zagon te kode in odprlo se bo pogovorno okno, ki vas bo opomnilo, da izberete podatke stolpca, ki vsebujejo določeno besedilo, ki ga želite vstaviti zgoraj, glejte posnetek zaslona:

doc vstavi vrstico nad določeno besedilo 3

4. In nato kliknite OK , so prazne vrstice vstavljene nad določeno besedilo »Mike«.

Opombe: V zgornji kodi lahko spremenite besedilno vrednost “Mike"Na katere koli druge vrednosti, ki ste jih želeli iz skripta Če je InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Potem.


Vstavite prazno vrstico nad določeno besedilo s programom Kutools za Excel

Če imate Kutools za Excel, Z njegovim Izberite Specific Cells funkcijo, lahko najprej izberete določene vrednosti celic, nato pa uporabite pripomoček Vstavi vrstice listov v Excelu, da naenkrat vstavite prazne vrstice.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite obseg podatkov, ki ga želite uporabiti.

2. Nato kliknite Kutools > Izberite > Izberite Specific Cells, glej posnetek zaslona:

3. v Izberite Specific Cells pogovorno okno, izberite Celica pod Vrsta izbirein nato določite merila, ki jih potrebujete pod Posebna vrsta v tem primeru bom izbral enako Iz Posebna vrstain vnesite ime, ki ga želim izbrati, glejte posnetek zaslona:

doc vstavi vrstico nad določeno besedilo 5

4. Nato kliknite Ok gumba so naenkrat izbrane vse celice, katerih vrednost je Mike, oglejte si posnetek zaslona:

doc vstavi vrstico nad določeno besedilo 6

5. Po izbiri določenih besedilnih celic kliknite HOME > Vstavi > Vstavite vrstice listov, prazne vrstice pa bodo vstavljene nad izbrano besedilo, glejte posnetke zaslona:

doc vstavi vrstico nad določeno besedilo 7 2 doc vstavi vrstico nad določeno besedilo 2

 Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Predstavitev: Vstavite prazno vrstico nad določeno besedilo s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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