„S“ (proč lidé nemohou podepsat svůj e-mail alespoň křestním jménem?) Napsal dnešní otázku.
Snažím se automaticky vkládat konce stránek do tabulky v aplikaci Excel. Zkoušel jsem Data - Mezisoučty, ale to mě nutí přidat Součet nebo Počet. Nechci žádné mezisoučty, jen zalomení stránky, kdykoli se změní hodnota ve sloupci A.
Toto makro problém vyřeší. Z nějakého důvodu trvá makra, která mění konce stránek nebo nastavení stránky, dlouhou dobu, ale to bude určitě rychlejší než ruční provedení procesu. Makro předpokládá, že vaše data jsou ve sloupci A a že začínají v řádku 2.
Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub
