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

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álj 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 FŐOLDAL > 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 és az ingyenes próbaverzió letöltéséhez!


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (16)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy oszlopom az 5,4,3,2, 1, 5, 5 és 5 számokkal (sok közülük), és szeretném elkülöníteni az ötösöket a többitől, például: 4 3 2 1 5 5 5 5 5 4 3 2 1 20140716 8 2 A számok csökkenő sorrendben vannak, és mindig négy van egy öt alatt, ezért megpróbáltam: Sub InsertRowsAtValueChange() 'Update 1 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel = Application Set. Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=1) Application.ScreenUpdating = False For i = WorkRng.Rows.Count to 5 Lépés -1 Ha WorkRng.Cells(i, 1). Érték = 4 és WorkRng.Cells(i - 1, XNUMX).Érték = XNUMX, majd WorkRng.Cells(i, XNUMX).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub De nem működött. Tudsz segíteni nekem?
A weboldal moderátora ezt a megjegyzést minimalizálta
A képlet remekül működik, de van néhány példa, ahol nem ismeri fel
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen, mindenhol kerestem, és ez volt az egyetlen bevált megoldás, ami szintén sima angol nyelven volt. Az összes többi Excel oktatówebhely nem bontotta le lépésről lépésre, ahogy te tetted, köszönöm szépen. Egészségére : )
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönöm, hogy több megoldást is leírt a problémára. A Visual Basic-et használtam, és a [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] értékét a [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] Ez üres sorok helyett vonalakat húz a változó értékekkel rendelkező sorok közé.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ahol a kódban módosítanom kell, hogy egynél több sor legyen, ott minden szünet után 10-et kell hozzáadnom... Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok köszönöm!! ez fantasztikus, azt is megtudjátok, hogyan kell beszúrni 2 sort, ha az érték megváltozik VBA-ban vagy Excelben.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok! Ezek szinte hasznosak! Az első módszer nem működik számomra, mert amikor kifejezetten követem a lépéseket, a részösszeg panelekből törölt adatok törlik a teljes rendezett oszlopokat. A második módszernél, amikor eljutok a lapsorok beszúrásának lépéséhez, a sorok a HAMIS cellák FÖLÉ kerülnek be, ami felosztja az adatokat, de ezután minden csoport utolsó kijelölése hozzáadódik az alábbi csoporthoz. Valami tanács???
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Sziasztok köszönöm!! ez fantasztikus, azt is megtudjátok, hogyan kell beszúrni 2 sort, ha az érték megváltozik VBA-ban vagy Excelben.Hudson által[/quote] Kérem, tudassa velem, hogyan lehet 1-nél több sort beszúrni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy ideje a saját megoldásomat használom.
1. Helyezzen be egy segédoszlopot az A oszlopba
2. Az A2 mezőbe írja be, hogy "if(B2=B1,A1,A1+1)"
3. Másolja le a képletet az utolsó sorig
4. Másolja ki az A oszlop összes kitöltött celláját, és illessze be a Speciális (Értékek) parancsot rájuk
5. Másolja ki újra az összes cellát, és illessze be őket az A oszlopba az első üres cellában (pl. ha 104 adatsorral és egy fejlécsorral rendelkezik, akkor az A106-os cellába illessze be)
6. Kattintson az Adatok és az Ismétlődések eltávolítása lehetőségre (csak az 5. lépésben beillesztett cellákon; nem minden sorban)
7. Rendezze az összes A oszlopot
8. Törölje az A oszlopot

Sok lépésnek tűnik, de csak néhány másodpercet vesz igénybe.
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA kód először működött, és pontosan azt tette, amit próbáltam. Nagyon szépen köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
RE: üres sorok beszúrása, ha az érték megváltozik a vba kóddal
Van mód arra, hogy elmentsem a tartományt, és ne kelljen választanom minden alkalommal, amikor futtatom?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
Nagyon hasznos abban az esetben, ha 1 sort kell beszúrnom, de ha 145 sort kell beszúrnom minden alkalommal, amikor az adatok megváltoznak az spwcific oszlopban, hogyan tehetem meg?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Hassan,
Ha több üres sort szeretne beszúrni, amikor az érték megváltozik egy adott oszlopban, akkor a következő VBA-kódot kell alkalmaznia:

Megjegyzés: Az alábbi kódban módosítsa a 99-es számot az Ön igényei szerint, például 145 üres sor beszúrásakor módosítsa a 99-es számot 144-re. Kérjük, próbálja ki, remélem segíthet!

Sub InsertRowsAtValueChange()
Dim Rng mint tartomány
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Tartomány", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = Hamis
i esetén = WorkRng.Rows.Count to 2 Step -1
Ha WorkRng.Cells(i, 1).Érték <> WorkRng.Cells(i - 1, 1).Érték, akkor
Tartomány(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Beszúrás
Ha véget
Következő
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos. A Skyyang fentebb bemutatott kódja tökéletesen működött. Csak győződjön meg arról, hogy az adatokban már nincs szóköz.

Nem értem a VBA-t, de úgy gondolom, hogy ha további sorokat szeretne hozzáadni azokhoz az adatokhoz, amelyekben már szerepel a szóköz, akkor módot kell adni a szóközök figyelmen kívül hagyására.

Hozzá lehet adni egy sort az üres sorok figyelmen kívül hagyásához vagy átugrásához? Ez a kódot univerzálisabbá és szükség esetén megismételhetőbbé teheti. Egy ehhez hasonló törlési funkció is hasznos lehet, így a visszavonás nem szükséges.
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA-módszer adaptálható az üres cellák figyelmen kívül hagyására? Van egy fájlom, amelybe két különböző oszlop alapján sorokat kell beszúrnom, de amikor a makrót a második oszlopon futtatom, akkor három üres sort kapok, ahol az első makró sorokat szúrt be.
Vagy futhat két oszlopon egyszerre?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Hassan,

Ez a vba csodálatos, míg szükségem van még egy alternatív kódra egyetlen üres sor beszúrásához a szekvenciaszámok megváltoztatása után. Példa: - Olyan oszlopban, amelyben számsorok vannak, például 1, 2, 3, 5, 6, 9 és stb.
Egyetlen üres sort kell hozzáadni a 3 és 5, valamint a 6 és 9 közé.
Kérem, tud ezzel.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi