Preskoči na glavno vsebino

Kako vstaviti prazno vrstico za določenim besedilom v Excelu?

Če želite vstaviti prazne vrstice za določenim besedilom, kot je prikazano na spodnjem posnetku zaslona, ​​kako hitro in enostavno ravnati z njimi, ne da bi jih vstavljali ročno enega za drugim?

Vstavite prazne vrstice za določenim besedilom s kodo VBA


Vstavite prazne vrstice za določenim besedilom s kodo VBA

Spodnjo kodo VBA lahko uporabite za vstavljanje praznih vrstic za določenim besedilom, ki ga potrebujete:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: Vstavite prazne vrstice za določenim besedilom

Sub Insertrowbelow()
'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, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

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

3. Nato pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite podatke stolpca, ki vsebujejo določeno besedilo, ki ga želite uporabiti, glejte posnetek zaslona:

4. In nato kliknite OK in prazne vrstice so bile vstavljene za določenim besedilom, ki ste ga določili, glejte posnetek zaslona:


Več relativnih člankov za vstavljanje vrstic:

  • Kopirajte in vstavite vrstico večkrat ali podvojite vrstico X Times
  • Ali ste pri svojem vsakodnevnem delu že poskusili kopirati vrstico ali vsako vrstico in nato na delovni list večkrat vstaviti pod trenutno vrstico s podatki? Na primer, imam vrsto celic, zdaj želim kopirati vsako vrstico in jih 3-krat prilepiti v naslednjo vrstico, kot je prikazano na spodnji sliki zaslona. Kako bi se lahko spopadli s tem delom v Excelu?
  • Vstavite prazne vrstice, ko se vrednost v Excelu spremeni
  • Recimo, da imate obseg podatkov in zdaj želite med podatke vstaviti prazne vrstice, ko se vrednost spremeni, tako da lahko zaporedoma enake vrednosti ločite v enem stolpcu, kot kažejo naslednji prikazani posnetki zaslona. V tem članku bom spregovoril o nekaj trikih, s katerimi boste rešili to težavo.
  • V Excel vstavite prazno vrstico nad določeno besedilo
  • 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.

  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
zavihek kte 201905
  • 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!
dno pisarniške mize
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations