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

Jak vložit prázdné řádky při změně hodnoty v aplikaci Excel?

Předpokládejme, že máte rozsah dat a nyní chcete mezi data při změně hodnoty vložit prázdné řádky, abyste mohli oddělit postupné stejné hodnoty v jednom sloupci, jak ukazují následující snímky obrazovky. V tomto článku budu mluvit o některých tricích, jak vyřešit tento problém.

Při změně hodnoty pomocí funkce Mezisoučet vložte prázdné řádky

Vložte prázdné řádky, když se hodnota změní, pomocí pomocných sloupců

Při změně hodnoty pomocí kódu VBA vložte prázdné řádky

Když se hodnota změní pomocí výkonné funkce, vložte konkrétní počet prázdných řádků


Při změně hodnoty pomocí funkce Mezisoučet vložte prázdné řádky

S Mezisoučet Při změně hodnoty můžete mezi data vložit prázdné řádky následujícím způsobem:

1. Vyberte rozsah dat, který chcete použít.

2, klikněte Data > Mezisoučet k otevření Mezisoučet v dialogovém okně a v Mezisoučet v dialogovém okně proveďte následující možnosti:

1: Vyberte název sloupce, do kterého chcete vložit prázdné řádky, podle toho, kdy se hodnota změní pod Při každé změně v sekci;
2: Vybrat Počítat z použijte funkci rozbalovací seznam;
3: Zaškrtněte název sloupce, do kterého chcete vložit mezisoučet Přidat mezisoučet do seznam

3. Pak klikněte na tlačítko OK, mezisoučty řádků byly vloženy mezi různé produkty a symboly obrysů se zobrazují vlevo od tabulky, viz screenshot:

4. A potom klikněte na číslo 2 v horní části symbolu obrysu, aby se zobrazily pouze mezisoučty.

5. Poté vyberte data mezisoučtu rozsahu a stiskněte Alt +; klávesové zkratky pro výběr pouze viditelných řádků, viz screenshot:

6. Po výběru pouze viditelných řádků stiskněte Vymazat na klávesnici a všechny mezisoučty řádků byly odstraněny.

7. Poté klikněte na libovolnou jinou buňku a vraťte se zpět Data > Oddělit > Vymazat obrys Chcete-li odstranit obrysy, viz screenshot:

8. Symboly osnovy byly vymazány najednou a můžete vidět, že mezi data při změně hodnoty byly vloženy prázdné řádky, viz screenshot:

9. Nakonec můžete sloupec A podle potřeby smazat.


Když se hodnota rychle změní, vložte konec stránky, prázdné řádky, spodní okraj nebo barvu výplně

Pokud máte Kutools pro Excel's Rozlišujte rozdíly funkce, můžete rychle vložit konec stránky, prázdné řádky, spodní ohraničení nebo barvu výplně, když se hodnota změní, jak potřebujete. Podívejte se na níže uvedenou ukázku.         Klikněte a stáhněte si Kutools pro Excel!


Vložte prázdné řádky, když se hodnota změní, pomocí pomocných sloupců

Se sloupci pomocníka můžete nejprve vložit vzorec a poté použít Najít a nahradit funkce, vložit prázdné řádky mezi měnící se hodnoty. Postupujte prosím následovně:

1. Do prázdné buňky C3 zadejte tento vzorec = A3 = A2, a do buňky D4 zadejte tento vzorec = A4 = A3, viz screenshot:

2. Poté vyberte C3: D4 a přetáhněte rukojeť výplně do rozsahu, na který chcete použít tyto vzorce, a dostanete Pravdivý or Falešný v buňkách, viz screenshot:

3. A pak stiskněte Ctrl + F klávesy pro otevření Najít a nahradit v rozevíracím dialogovém okně zadejte NEPRAVDIVÉ do Najít to, co textové pole pod Najít kartu a klepněte na tlačítko možnosti tlačítko pro rozbalení tohoto dialogu a zvolte Hodnoty z Podívejte se do rozevírací seznam, viz screenshot:

4. klikněte Najít vše tlačítko a potom stiskněte Ctrl + chcete-li vybrat všechny výsledky hledání, byly vybrány všechny FALSE buňky najednou, viz screenshot:

6. Zavři Najít a nahradit V dalším kroku můžete kliknutím na ikonu vložit prázdné řádky Home > Vložit > Vložte řádky listůa do dat byly vloženy prázdné řádky při změně hodnoty na základě sloupce A, viz screenshoty:

7. Nakonec můžete podle potřeby odstranit pomocné sloupce C a D.


Při změně hodnoty pomocí kódu VBA vložte prázdné řádky

Pokud jste unaveni z používání výše uvedených metod, zde je také kód, který vám pomůže vložit prázdné řádky mezi změněné hodnoty najednou.

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Při změně hodnoty vložte prázdné řádky

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám umožní vybrat data jednoho sloupce, do kterého chcete vložit prázdné řádky při změně hodnoty, na které jste založeni, viz screenshot:

4. A pak klikněte na tlačítko OK, byly prázdné řádky vloženy mezi data při změně hodnoty na základě sloupce A.


Když se hodnota změní pomocí výkonné funkce, vložte konkrétní počet prázdných řádků

Pokud jste byli vyzkoušeni výše uvedenými obtížnými metodami, představím zde užitečný nástroj, Kutools pro Excel's Rozlišujte rozdíly vám pomůže vložit konec stránky, prázdné řádky, spodní ohraničení nebo barvu výplně, když se hodnota buňky rychle a snadno změní.

Tip:Použít toto Rozlišujte rozdíly funkce, za prvé, měli byste si stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools > Formát > Rozlišujte rozdíly, viz screenshot:

2. V Rozlišujte rozdíly podle sloupce klíče V dialogovém okně proveďte následující operace:

  • Vyberte rozsah dat, který chcete použít, a poté vyberte klíčový sloupec, do kterého chcete vložit prázdné řádky;
  • Pak zkontrolujte Prázdný řádek možnost z nabídky možnosti a zadejte počet prázdných řádků, které chcete vložit.

3. Pak klikněte na tlačítko Ok tlačítko a konkrétní počet prázdných řádků byl vložen do dat, pokud se změní hodnota buňky, viz screenshoty:

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (16)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Mám sloupec s čísly 5,4,3,2 a 1 (spousta z nich) a chci oddělit pětky od ostatních, jako: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Čísla jsou v popisném pořadí a pod pětkou jsou vždy čtyři, tak jsem zkusil: Sub InsertRowsAtValueChange() 'Update 20140716 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Nastavit 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). Hodnota = 5 And WorkRng.Cells(i - 1, 1).Value = 4 Then WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Ale nefungovalo to. Můžeš mi pomoci?
Tento komentář byl moderátorem webu minimalizován
Vzorec funguje skvěle, ale existuje několik příkladů, kdy to nerozpozná
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát, hledal jsem všude a toto bylo jediné řešení, které pro mě fungovalo a bylo také v jednoduché angličtině. Všechny ostatní weby s výukovým programem Excel to nerozebíraly krok za krokem tak, jak to dělali vy, mnohokrát vám děkuji. na zdraví :)
Tento komentář byl moderátorem webu minimalizován
Velice vám děkuji za popis několika řešení problému. Použil jsem jazyk Visual Basic a změnil jsem [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] na [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] Toto vykreslí čáry mezi řádky s měnícími se hodnotami namísto prázdných řádků.
Tento komentář byl moderátorem webu minimalizován
Kde v kódu bych potřeboval upravit tak, aby zahrnoval více než jeden řádek, musím po každé přestávce přidat 10... Díky
Tento komentář byl moderátorem webu minimalizován
Ahoj všem děkuji!! je to úžasné, můžete mi také nechat, jak vložit 2 řádky, když se hodnota změní ve VBA nebo přes Excel.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, tyto jsou téměř užitečné! První metoda pro mě nefunguje, protože když postupuji podle kroků explicitně, data, která odstraním v podoknech mezisoučtu, odstraní celé sloupce, které jsem seřadil. Ve druhé metodě, když se dostanu ke kroku, kde vkládám řádky listu, jsou řádky vloženy NAD FALSE buňky, což rozdělí data, ale poslední výběr každé skupiny je pak přidán do skupiny níže. Nějaká rada???
Tento komentář byl moderátorem webu minimalizován
[quote] Ahoj všem, děkuji!! je to úžasné, můžete mi také nechat, jak vložit 2 řádky, když se hodnota změní ve VBA nebo přes Excel.Od Hudsona[/quote] Dejte mi prosím vědět, jak vložit více než 1 řádek.
Tento komentář byl moderátorem webu minimalizován
Už nějakou dobu používám vlastní řešení.
1. Do sloupce A vložte pomocný sloupec
2. Do pole A2 zadejte „if(B2=B1,A1,A1+1)“
3. Zkopírujte vzorec dolů na poslední řádek
4. Zkopírujte všechny vyplněné buňky ve sloupci A a vložte přes ně speciální (hodnoty).
5. Znovu zkopírujte všechny buňky a vložte je do sloupce A v první nevyplněné buňce (např. pokud máte 104 řádků dat plus řádek záhlaví, který byste vložili do buňky A106)
6. Klikněte na Data a Remove Duplicates (pouze na buňky, které jste právě vložili v kroku 5; ne na všechny řádky)
7. Seřaďte celý sloupec A
8. Smazat sloupec A

Vypadá to jako hodně kroků, ale trvá to jen pár sekund.
Tento komentář byl moderátorem webu minimalizován
Kód VBA fungoval poprvé a dělal přesně to, o co jsem se snažil. Děkuji mnohokrát!
Tento komentář byl moderátorem webu minimalizován
RE: vložte prázdné řádky, když se hodnota změní s kódem vba
Existuje způsob, jak uložit rozsah a nemuset ho vybírat pokaždé, když jej spustím?
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Je velmi užitečné v případě, že potřebuji vložit 1 řádek, ale pokud potřebuji vložit 145 řádků pokaždé, když se data změní ve sloupci spwcific, jak to mohu udělat?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Hassan,
Chcete-li vložit více prázdných řádků při změně hodnoty v konkrétním sloupci, měli byste použít následující kód VBA:

Poznámka: V níže uvedeném kódu byste měli změnit číslo 99 podle své potřeby, například když vložíte 145 prázdných řádků, měli byste změnit číslo 99 na 144. Zkuste to, doufám, že vám to pomůže!

Sub InsertRowsAtValueChange()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kutoolsfor Excel"
Nastavte WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Pro i = WorkRng.Rows.Count To 2 Krok -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
Rozsah(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
End If
další
Application.ScreenUpdating = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Velmi nápomocný. Kód, který skyyang ukazuje výše, fungoval perfektně. Jen se ujistěte, že data v sobě již nemají mezery.

Nerozumím VBA, ale věřím, že pokud chcete přidat další řádky pod data, která již měla mezery, měl by existovat způsob, jak mezery ignorovat.

Je možné přidat řádek, který bude ignorovat nebo přeskočit prázdné řádky? To by mohlo v případě potřeby učinit tento kód univerzálnějším a opakovatelným. Také funkce odstranění, která je podobná této, může být užitečná, takže vrácení zpět není nutné.
Tento komentář byl moderátorem webu minimalizován
Lze metodu VBA upravit tak, aby ignorovala prázdné buňky? Mám soubor, do kterého potřebuji vložit řádky na základě dvou různých sloupců, ale když spustím makro na druhém sloupci, skončím se třemi prázdnými řádky, kde první makro spustí vložené řádky.
Nebo může běžet na dvou sloupcích současně?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Hassan,

Tato vba je úžasná, zatímco potřebuji ještě jeden alternativní kód pro vložení jednoho prázdného řádku po změnách v pořadových číslech. Příklad:- Ve sloupci s číselnými řadami jako 1, 2, 3, 5, 6, 9 atd...
Je třeba přidat jeden prázdný řádek mezi 3 a 5 a také mezi 6 a 9.
Prosím, můžete s tím.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL