Ugrás a tartalomra

Hogyan lehet üres sorokat beszúrni, ha az Excelben megváltozik az érték?

Tegyük fel, hogy van egy adattartománya, és most üres sorokat szeretne beilleszteni az adatok közé, amikor az érték megváltozik, hogy a szekvenciális ugyanazokat az értékeket egy oszlopban különíthesse el, a következő képernyőképek szerint. Ebben a cikkben néhány trükkről fogok beszélni, amelyek segítségével megoldhatja ezt a problémát.

Helyezzen be üres sorokat, ha az érték változik a Részösszeg funkcióval

Helyezzen be üres sorokat, ha az érték a segítő oszlopokkal változik

Helyezzen be üres sorokat, ha az érték a VBA kóddal változik

Adjon meg egy bizonyos számú üres sort, ha az érték egy erőteljes szolgáltatással változik


Helyezzen be üres sorokat, ha az érték változik a Részösszeg funkcióval

Aktivitáskövető Részösszeg funkcióval üres sorokat illeszthet be az adatok közé, ha az érték megváltozik, a következő lépések szerint:

1. Válassza ki a használni kívánt adattartományt.

2. Kattints dátum > Részösszeg megnyitni Részösszeg párbeszédpanelen, és a Részösszeg párbeszédpanelen tegye a következőket:

1: Válassza ki annak az oszlopnak a nevét, amelybe üres sorokat kíván beilleszteni, annak alapján, hogy az érték alatt mi változik Minden változásnál szakaszban;
2: Választ Gróf tól Felhasználási funkció legördülő lista;
3: Jelölje be az oszlop nevét, amelybe be szeretné illeszteni a részösszeget Add hozzá a részösszeget a következőhöz: lista mezőbe

3. Ezután kattintson OK, a részösszegeket beszúrta a különböző termékek közé, és a vázlat szimbólumok a táblázat bal oldalán jelennek meg, lásd a képernyőképet:

4. Ezután kattintson a körvonal szimbólum tetején található 2-re, hogy csak a részösszegek jelenjenek meg.

5. Ezután válassza ki a részösszeg tartomány adatait, és nyomja meg a gombot Alt +; gyorsbillentyűk csak a látható sorok kiválasztásához, lásd a képernyőképet:

6. A látható sorok kiválasztása után csak nyomja meg a gombot töröl gombot a billentyűzeten, és az összes részösszeget eltávolítottuk.

7. Ezután kattintson bármely más cellára, és menjen vissza dátum > Csoportbontás > Törölje a körvonalat a körvonalak eltávolításához lásd a képernyőképet:

8. A körvonal szimbólumok egyszerre törlődtek, és láthatja, hogy üres sorok kerültek be az adatok közé, ha az érték megváltozik, lásd a képernyőképet:

9. Végül szükség szerint törölheti az A oszlopot.


Szúrjon be oldaltörést, üres sorokat, alsó szegélyt vagy kitöltési színt, ha az érték gyorsan változik

Ha van Kutools az Excel számára's Megkülönböztetni a különbségeket funkcióval gyorsan beszúrhat oldaltörést, üres sorokat, alsó szegélyt vagy kitöltési színt, ha az érték szükség szerint változik. Lásd az alábbi bemutatót.         Kattintson a Kutools for Excel letöltéséhez!


Helyezzen be üres sorokat, ha az érték a segítő oszlopokkal változik

A segítő oszlopokkal először beillesztheti a képletet, majd alkalmazhatja a Keresés és csere függvény végül beszúrja az üres sorokat a változó értékek közé. Kérjük, tegye a következőket:

1. Egy üres C3 cellába írja be ezt a képletet = A3 = A2, és a D4 cellába írja be ezt a képletet = A4 = A3, lásd a képernyőképet:

2. Ezután válassza a C3: D4 elemet, és húzza át a kitöltő fogantyút arra a tartományra, amelyre a dolgozat képleteit alkalmazni szeretné, és megkapja Igaz or Hamis a cellákban lásd a képernyőképet:

3. Ezután nyomja meg a gombot Ctrl + F billentyűk megnyitásához Keresés és csere párbeszédpanelen írja be az előugró párbeszédpanelen HAMIS be a Mit keres alatti szövegmező Találjon lapot, és kattintson a gombra Opciók gombra a párbeszédpanel kibontásához, majd válassza a lehetőséget Értékek tól Benéz legördülő lista, lásd a képernyőképet:

4. Kattints Találd meg mindet gombot, majd nyomja meg a gombot Ctrl + A a keresés összes eredményének kiválasztásához az összes FALSE cellát egyszerre választották ki, lásd a képernyőképet:

6. Csukja be a Keresés és csere párbeszédpanelen, a következő lépésben kattintással beilleszthet üres sorokat Kezdőlap > betétlap > Lapsorok beszúrása, és üres sorokat illesztettek be az adatokba, amikor az érték az A oszlop alapján változik, lásd a képernyőképeket:

7. Végül szükség szerint törölheti a segítő C és D oszlopát.


Helyezzen be üres sorokat, ha az érték a VBA kóddal változik

Ha eleged van a fenti módszerek használatából, itt egy kód is segíthet üres sorok beszúrásában a megváltozott értékek közé egyszerre.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Helyezzen be üres sorokat, ha az érték megváltozik

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely lehetővé teszi, hogy kiválasszon egy oszlopadatot, amelyet üres sorok beillesztéséhez szeretne használni, ha az érték megváltozik, amelyre alapul

4. Kattintson a gombra OK, az üres sorokat beszúrtuk az adatok közé, amikor az érték az A oszlop alapján változik.


Adjon meg egy bizonyos számú üres sort, ha az érték egy erőteljes szolgáltatással változik

Ha a fenti problémás módszerekkel próbálkoznak, itt bemutatok egy hasznos eszközt, Kutools az Excel számára's Megkülönböztetni a különbségeket segíthet az oldaltörés, az üres sorok, az alsó szegély vagy a kitöltési szín beillesztésében, ha a cella értéke gyorsan és egyszerűen változik.

Tipp:Ennek alkalmazásához Megkülönböztetni a különbségeket funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > kialakított > Megkülönböztetni a különbségeket, lásd a képernyőképet:

2. Az Megkülönböztetni a különbségeket kulcsoszlopok szerint párbeszédpanelen tegye a következőket:

  • Válassza ki a használni kívánt adattartományt, majd válassza ki azt a kulcsoszlopot, amely alapján üres sorokat szeretne beszúrni;
  • Ezután ellenőrizze Üres sor lehetőség a Opciók szakaszban, és írja be a beilleszteni kívánt üres sorok számát.

3. Ezután kattintson Ok gombra, és az üres sorok meghatározott számát illesztették be az adatokba, ha a cella értéke megváltozik, lásd a képernyőképeket:

Kattintson a Kutools for Excel letöltéséhez és az ingyenes próbaverzióhoz most!

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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