Jak podmíněné vkládání konců stránek v aplikaci Excel?
Předpokládejme, že musíte vložit konce stránek, zatímco se hodnoty mění ve sloupci A, jak je ukázáno níže, jak byste to mohli zvládnout v aplikaci Excel? Obecně můžete konce stránek vkládat jeden po druhém ručně, ale zde představuji několik triků, jak to rychle vyřešit.
Použití funkce Mezisoučet k vložení konců stránek
Použití kódu VBA k vložení konců stránek
Rozlišujte rozdíly pro vložení konce stránky při změně dat
Vložit konec stránky každý řádek pro vložení konce stránky do n-tých řádků
Použití funkce Mezisoučet k vložení konců stránek
V aplikaci Excel může funkce Mezisoučet přidat konce stránek na základě skupiny.
1. Vyberte data, do kterých chcete přidat konce stránek, klepněte na Data > Mezisoučet.
2. V Mezisoučet v dialogovém okně vyberte sloupec, do kterého chcete vložit konec stránky, na základě jeho hodnoty v Při každé změně v rozevíracím seznamu vyberte funkci, ze které chcete použít použijte funkci seznam, pak zkontrolujte Přerušení stránky mezi skupinami zaškrtávací políčko a další možnosti, jak potřebujete.
3. cvaknutí OK. Nyní byla data seskupena a přidána zalomení stránky.
Použití kódu VBA k vložení konců stránek
Pokud nechcete k datům přidávat skupiny, můžete ke zpracování této úlohy zkusit kód VBA.
1. lis Alt + F11 tlačítka k zobrazení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul, zkopírujte a vložte pod kód do nového okna modulu.
VBA: Při změně dat vložte konce stránek
Sub PageBreak()
'UpdatebyExtendOffice20181101
Dim xSRg As Range
Dim xRg As Range
On Error Resume Next
Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xRg In xSRg
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
If xRg.Value <> xRg.Offset(-1, 0).Value Then
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
End If
Next xRg
Application.ScreenUpdating = True
End Sub
3. lis F5 klíč, objeví se dialogové okno, které vám připomene, abyste vybrali klíčový sloupec, podle kterého se vkládá konec stránky.
4. cvaknutí OK, nyní byly vloženy konce stránek.
Rozlišujte rozdíly pro vložení konce stránky při změně dat
Projekt Rozlišovat rozdíly vlastnost Kutools pro Excel podporuje vložení konce stránky, prázdného řádku, spodního okraje nebo barvy pozadí při změně dat v Excelu.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)
klikněte Kutools > Formát > Rozlišovat rozdíly.
2. V Rozlišujte rozdíly podle sloupce klíče dialogu, dokončete nastavení níže:
1) klikněte na ikonu výběru 
v Rozsah vyberte rozsah dat (kromě záhlaví sloupců)
2) klikněte na ikonu výběru v Klíčový sloupec sekce, vyberte sloupec, do kterého chcete vložit konec stránky na základě odpovídající změny dat (kromě záhlaví sloupců)
3) zkontrolovat Konec stránky volba v možnosti sekce.
3. cvaknutí Ok.
Nyní se při změně dat ve vybraném rozsahu vloží konce stránek.
Vložit konec stránky každý řádek pro vložení konce stránky do n-tých řádků
Pokud chcete vložit konce stránek v pevném intervalu, můžete použít Kutools pro ExcelJe Vložit stránku do každého řádku nástroj pro rychlé řešení problému.
Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)
1. Vyberte data a klikněte Kutools Plus > Tisk > Vložit konec stránky každý řádek.
2. V Vložit konec stránky každý řádek dialogové okno, zadejte požadovaný interval.
3. cvaknutí OK > OK k zavření dialogů byly konce stránek vloženy do každých 2 řádků.
Vložit stránku Rozdělit každý n-tý řádek
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!
