Preskoči na glavno vsebino

Raziščite novo, brezplačna različica Kutools za Outlook danes!

 

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

Avtor: Xiaoyang Zadnja sprememba: 2021-01-08

Č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