Preskoči na glavno vsebino

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

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
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...

Opis


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 (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, Hassan,

This vba is amazing, whereas I need one more alternate code for insert single blank row after changes in sequencing numbers. Example:- In column having number series like 1, 2, 3, 5, 6, 9 & etc...
Need to add single blank row between 3 & 5 as well as 6 & 9.
Please can you with this.
This comment was minimized by the moderator on the site
Can the VBA method be adapted to ignore blank cells? I have a file which I need to insert rows in based on two different columns but when I run the macro on the second column I end up with three blank lines where the first macro run inserted rows.
Or can it run on two columns at the same time?
This comment was minimized by the moderator on the site
Hello,
Is very usefull in case i need to insert 1 row, but if i need to insert 145 rows in every time the data change in spwcific column, how can i do it??
This comment was minimized by the moderator on the site
Hi, Hassan,
To insert multiple blank rows when value changes in a specific column, you should apply the following VBA code:

Note: In the below code, you should change the number 99 to your need, for example, when you insert 145 blank rows, you should change the number 99 to 144. Please try it, hope it can help you!

Sub InsertRowsAtValueChange()
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
Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
End If
Next
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Very helpful. The code that skyyang shows above worked perfectly. Just make sure that the data doesn't already have spaces in it.

I don't understand VBA, but I believe if you wanted to add more rows underneath data that already had the spacing, there should be a way to ignore spaces.

Could a line be added to ignore or skip over blank lines? That might make this code more universal and repeatable if needed. Also a delete function that is similar to this may be useful so undo isn't necessary.
This comment was minimized by the moderator on the site
RE: insert blank rows when value changes with vba code
Is there a way that I can save the Range & not have to pick it every time I run it?
This comment was minimized by the moderator on the site
The VBA code worked 1st time and did exactly what I was trying to do. Thank you so much!
This comment was minimized by the moderator on the site
I've been using my own solution for some time.
1. Insert a helper column into Column A
2. In A2, type "if(B2=B1,A1,A1+1)"
3. Copy that formula down to the last row
4. Copy all the populated cells in column A and Paste Special (Values) over them
5. Copy all the cells again and paste them into column A in the first unpopulated cell (e.g. if you have 104 rows of data plus a header row you would paste into cell A106)
6. Click on Data and Remove Duplicates (only on the cells you just pasted in Step 5; not on all rows)
7. Sort all of Column A
8. Delete Column A

Seems like a lot of steps but only takes a few seconds.
This comment was minimized by the moderator on the site
[quote]Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.By Hudson[/quote] Please let me know how to insert more than 1 row.
This comment was minimized by the moderator on the site
Hi there, These are almost useful! The first method doesn't work for me because when I follow the steps explicitly, the the data that I delete in the subtotal panes deletes the entire columns that I've sorted. In the second method when I get to the step where I insert sheet rows, the rows are inserted ABOVE the FALSE cells which breaks up the data, but the last selection of every group is then added to the group below. Any advice???
This comment was minimized by the moderator on the site
Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.
This comment was minimized by the moderator on the site
Where in the code would I need to modify to include more than one row, I need to add 10 after each break... Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations