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

Kako vstaviti prazne vrstice, ko se vrednost spremeni v Excelu?

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.

Vstavite prazne vrstice, ko se vrednost spremeni s funkcijo Vmesni seštevek

Vstavite prazne vrstice, ko se vrednost spremeni s pomožnimi stolpci

Vstavite prazne vrstice, ko se vrednost spremeni s kodo VBA

Vstavite določeno število praznih vrstic, ko se vrednost spremeni z zmogljivo funkcijo


Vstavite prazne vrstice, ko se vrednost spremeni s funkcijo Vmesni seštevek

Z Skupaj med podatke lahko vstavite prazne vrstice, ko se vrednost spremeni, kot sledi:

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

2. Kliknite datum > Skupaj da odprete Skupaj v pogovornem oknu in v Skupaj pogovorno okno, naredite naslednje možnosti:

1: Izberite ime stolpca, v katerega želite vstaviti prazne vrstice, glede na to, ko se vrednost spremeni pod Ob vsaki spremembi v odseku;
2: Izberite Grof Iz Uporabite funkcijo spustni seznam;
3: Označite ime stolpca, v katerega želite vstaviti vmesni seštevek v Dodaj vmesni seštevek v seznamsko polje

3. Nato kliknite OK, so med različnimi izdelki vstavljene podseštevalne vrstice, simboli obrisov pa so prikazani na levi strani tabele, glej posnetek zaslona:

4. In nato kliknite številko 2 na vrhu simbola orisa, da prikažete samo vrstice vmesnega seštevka.

5. Nato izberite podatke o vmesnem seštevku in pritisnite Alt +; bližnjice za izbiro samo vidnih vrstic, glejte posnetek zaslona:

6. Ko izberete samo vidne vrstice, pritisnite tipko Brisanje na tipkovnici in vse vrstice vmesnega seštevka so bile odstranjene.

7. Nato kliknite katero koli drugo celico in se vrnite nazaj datum > Razdruži > Jasen oris če želite odstraniti orise, si oglejte posnetek zaslona:

8. Simboli obrisov so bili naenkrat izbrisani in vidite, da so med podatki vstavljene prazne vrstice, ko se vrednost spremeni, glejte posnetek zaslona:

9. Končno lahko stolpec A izbrišete po potrebi.


Ko se vrednost hitro spremeni, vstavite prelom strani, prazne vrstice, spodnjo obrobo ali barvo polnila

Če imate Kutools za Excel's Razlikovati razlike V funkcijo lahko hitro vstavite prelom strani, prazne vrstice, spodnjo obrobo ali barvo zapolnitve, ko se vrednost spremeni po potrebi. Oglejte si spodnjo predstavitev.         Kliknite za prenos Kutools za Excel!


Vstavite prazne vrstice, ko se vrednost spremeni s pomožnimi stolpci

S pomožnimi stolpci lahko najprej vstavite formulo in nato uporabite Poišči in zamenjaj funkcija, končno vstavite prazne vrstice med spreminjajoče se vrednosti. Naredite naslednje:

1. V prazno celico C3 vnesite to formulo = A3 = A2in v celico D4 vnesite to formulo = A4 = A3, glej posnetek zaslona:

2. Nato izberite C3: D4 in povlecite ročico za polnjenje do obsega, v katerem želite uporabiti formule tez, in dobili boste True or False v celicah si oglejte posnetek zaslona:

3. In nato pritisnite Ctrl + F tipke za odpiranje Poišči in zamenjaj v pogovornem oknu vnesite FALSE v Našli kaj besedilno polje pod Najdi in kliknite možnosti za razširitev tega pogovornega okna in izberite Vrednote Iz Poglej v spustni seznam, glej posnetek zaslona:

4. klik Poišči vse in pritisnite Ctrl + če želite izbrati vse rezultate iskanja, so bile naenkrat izbrane vse FALSE celice, glejte posnetek zaslona:

6. Zaprite Poišči in zamenjaj v naslednjem koraku lahko vstavite prazne vrstice s klikom Home > Vstavi > Vstavite vrstice listov, in prazne vrstice so bile vstavljene v podatke, ko se vrednost spremeni na podlagi stolpca A, glejte posnetke zaslona:

7. Končno lahko po potrebi izbrišete pomožni stolpec C in D.


Vstavite prazne vrstice, ko se vrednost spremeni s kodo VBA

Če ste naveličani uporabljati zgornje metode, je tukaj tudi koda, ki vam lahko pomaga, da med spremenjene vrednosti hkrati vstavite prazne vrstice.

1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

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

Koda VBA: Vstavite prazne vrstice, ko se vrednost spremeni

Sub InsertRowsAtValueChange()
'Update by Extendoffice
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)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, da boste lahko izbrali podatke enega stolpca, v katerega želite vstaviti prazne vrstice, ko se vrednost spremeni, na podlagi katere ste videli, glejte posnetek zaslona:

4. In nato kliknite OK, so bile prazne vrstice vstavljene med podatke, ko se vrednost spremeni na podlagi stolpca A.


Vstavite določeno število praznih vrstic, ko se vrednost spremeni z zmogljivo funkcijo

Če ste preizkusili zgornje težavne metode, bom tukaj predstavil koristno orodje, Kutools za Excel's Razlikovati razlike vam lahko pomaga, da vstavite prelom strani, prazne vrstice, spodnjo obrobo ali barvo polnila, ko se vrednost celice hitro in enostavno spremeni.

Nasvet:Če želite uporabiti to Razlikovati razlike funkcijo, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Kliknite Kutools > oblikovana > Razlikovati razlike, glej posnetek zaslona:

2. v Ločite razlike po ključnem stolpcu pogovorno okno, naredite naslednje:

  • Izberite obseg podatkov, ki ga želite uporabiti, in nato izberite ključni stolpec, na podlagi katerega želite vstaviti prazne vrstice;
  • Nato preverite Prazna vrstica možnost iz možnosti in vnesite število praznih vrstic, ki jih želite vstaviti.

3. Nato kliknite Ok in določeno število praznih vrstic je bilo vstavljenih v podatke, če se vrednost celice spremeni, glejte posnetke zaslona:

Kliknite za prenos Kutools za Excel in brezplačno preskusno različico 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 (16)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Imam stolpec s številkami 5,4,3,2 in 1 (veliko jih) in želim ločiti petice od ostalih, na primer: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Številke so v opisnem vrstnem redu in vedno so štiri pod petico, zato sem poskusil: Sub InsertRowsAtValueChange() 'Posodobi 20140716 Dim Rng As Range Dim WorkRng As Range ob napaki Nadaljuj naprej xTitleId = "KutoolsforExcel" Set WorkR. Nastavite WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For i = WorkRng.Rows.Count na 2 Korak -1 Če WorkRng.Cells(i, 1). Vrednost = 5 In WorkRng.Cells(i - 1, 1).Value = 4 Potem WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Vendar ni delovalo. Mi lahko pomagaš?
Ta komentar je moderator na spletnem mestu minimiziral
Formula deluje odlično, vendar je nekaj primerov, ko je ne prepozna
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, pogledal sem povsod in to je bila edina rešitev, ki je delovala zame, ki je bila tudi v navadni angleščini. Vsa druga spletna mesta z vadnicami za Excel tega niso razčlenila korak za korakom, kot ste ga vi, najlepša hvala. na zdravje : )
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za opis več rešitev za težavo. Uporabil sem Visual Basic in spremenil [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] z [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] To bo namesto praznih vrstic narisalo črte med vrsticami s spreminjajočimi se vrednostmi.
Ta komentar je moderator na spletnem mestu minimiziral
Kje v kodi bi moral spremeniti, da bi vključeval več kot eno vrstico, moram dodati 10 po vsakem prelomu ... Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo vsem hvala!! super je, mi lahko dovolite tudi, kako vstaviti 2 vrstici, ko se vrednost spremeni v VBA ali v excelu.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, te so skoraj uporabne! Prva metoda zame ne deluje, ker ko izrecno sledim korakom, podatki, ki jih izbrišem v podoknih vmesnih seštevkov, izbrišejo celotne stolpce, ki sem jih razvrstil. Pri drugi metodi, ko pridem do koraka, kjer vstavim vrstice lista, se vrstice vstavijo NAD celicami FALSE, kar razbije podatke, vendar se zadnji izbor vsake skupine nato doda spodnji skupini. Kakšen nasvet???
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Živjo vsem hvala!! super je, mi lahko dovolite tudi, kako vstaviti 2 vrstici, ko se vrednost spremeni v VBA ali v excelu.Avtor Hudson[/quote] Prosim, povejte mi, kako vstaviti več kot 1 vrstico.
Ta komentar je moderator na spletnem mestu minimiziral
Že nekaj časa uporabljam svojo lastno rešitev.
1. V stolpec A vstavite pomožni stolpec
2. V A2 vnesite "if(B2=B1,A1,A1+1)"
3. Kopirajte to formulo navzdol v zadnjo vrstico
4. Kopirajte vse poseljene celice v stolpcu A in čeznje prilepite posebno (vrednosti).
5. Ponovno kopirajte vse celice in jih prilepite v stolpec A v prvi nepopolni celici (npr. če imate 104 vrstice podatkov in vrstico z glavo, bi jih prilepili v celico A106)
6. Kliknite Podatki in odstrani dvojnike (samo v celicah, ki ste jih pravkar prilepili v 5. koraku; ne v vseh vrsticah)
7. Razvrsti ves stolpec A
8. Izbrišite stolpec A

Zdi se, da je veliko korakov, vendar traja le nekaj sekund.
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBA je delovala prvič in naredila točno to, kar sem poskušal narediti. Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
RE: vstavite prazne vrstice, ko se vrednost spremeni s kodo vba
Ali obstaja način, da shranim obseg in ga ni treba izbrati vsakič, ko ga zaženem?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Je zelo uporaben, če moram vstaviti 1 vrstico, če pa moram vstaviti 145 vrstic vsakič, ko se podatki spremenijo v stolpcu spwcific, kako lahko to storim??
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Hassan,
Če želite vstaviti več praznih vrstic, ko se vrednost spremeni v določenem stolpcu, uporabite naslednjo kodo VBA:

Opomba: V spodnji kodi morate spremeniti številko 99 glede na vaše potrebe, na primer, ko vstavite 145 praznih vrstic, spremenite številko 99 v 144. Poskusite, upam, da vam bo pomagalo!

SubInsertRowsAtValueChange()
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)
Application.ScreenUpdating = Napačno
Za i = WorkRng.Rows.Count do 2 Korak -1
Če WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Potem
Obseg(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
Konec Če
Naslednji
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Zelo koristno. Koda, ki jo skyyang prikazuje zgoraj, je delovala odlično. Prepričajte se, da podatki že nimajo presledkov.

Ne razumem VBA, vendar verjamem, da če želite dodati več vrstic pod podatke, ki so že imeli presledke, bi moral obstajati način, da prezrete presledke.

Ali je mogoče dodati vrstico za prezrtje ali preskok na prazne vrstice? To bi lahko naredilo to kodo bolj univerzalno in po potrebi ponovljivo. Tudi funkcija brisanja, ki je podobna tej, je lahko uporabna, tako da razveljavitev ni potrebna.
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče metodo VBA prilagoditi tako, da prezre prazne celice? Imam datoteko, v katero moram vstaviti vrstice na podlagi dveh različnih stolpcev, a ko zaženem makro v drugem stolpcu, imam na koncu tri prazne vrstice, kjer prvi makro izvaja vstavljene vrstice.
Ali pa lahko deluje v dveh stolpcih hkrati?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Hassan,

Ta vba je neverjeten, medtem ko potrebujem še eno nadomestno kodo za vstavljanje ene prazne vrstice po spremembah zaporednih številk. Primer: - V stolpcu s številkami, kot so 1, 2, 3, 5, 6, 9 itd.
Dodati je treba eno prazno vrstico med 3 in 5 ter 6 in 9.
Prosim, lahko s tem.
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