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

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • 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 brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... 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č ...
  • 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...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, imam podoben problem kot zgoraj. Kaj pa, če želim izbrati celico pod določenim kriterijem? Na primer, lahko uporabite zgornji primer. želim izbrati celico pod "Mike". ali obstaja lahek izhod?
Ta komentar je moderator na spletnem mestu minimiziral
@SSJ si že našel rešitev?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo družba,

Če želite vstaviti prazne vrstice pod določeno vrednost celice, lahko uporabite naslednjo kodo:

Podprazna vrstica()
Dim Rng kot domet
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Nastavi WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Napačno
Za xRowIndex = xLastRow do 1 koraka -1
Nastavi Rng = WorkRng.Range("A" & xRowIndex)
Če je Rng.Value = "Mike" Potem
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Konec Če
Naslednji
Application.ScreenUpdating = Res
End Sub

Prosimo, spremenite kriterij "Mike" na vrednost lastne celice.

Upam, da vam lahko pomaga, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! je delovalo.
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo neverjetno glede na podatke, ki jih imam. Zanimalo me je, ali mi lahko pomagate še korak naprej. Na podlagi tega sem lahko razdelil svoje podatke, vendar moram svoje skupine podatkov obarvati. Ko razdelim svoje podatke, imam spremenljivo število vrstic od 1 do 50 in imam 36 stolpcev podatkov, vključno z 32 stolpci, ki jih potrebujem, da primerjam vrednosti znotraj z zgornjo vrstico. Trenutno ročno izbiram vsako skupino (kot je ločena s prazno vrstico) in nato uporabljam ctrl+shift+| da poudarite razlike v stolpcih in oblikujete te celice, da poudarite razlike.


Ali obstaja kdo, ki bi lahko napisal kodo za izbiro in oblikovanje teh razlik v stolpcih znotraj skupin, pri čemer bi uporabil prazno vrstico kot ločilo?
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da se ne prikaže pogovorno okno z pojavnim oknom, ki me opomni, naj izberem podatke stolpca, ki vsebuje določeno besedilo, ki ga želim vstaviti zgoraj. Če je določena celica napolnjena s podatki, se postopek samodejno zažene brez pozivov in vstavi vrstica zgoraj?
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam narediti prazno vrstico za vsako neprazno celico, a excel pravi. "Tega ukaza ni mogoče uporabiti za več izbir"
Zakaj mi ne deluje???
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL