„S“ (prečo ľudia nemôžu podpísať svoj e-mail aspoň s menom)? Napísali dnešnú otázku.
Snažím sa automaticky vkladať konce stránok do tabuľky v programe Excel. Vyskúšal som údaje - medzisúčty, ale to ma núti pridať súčet alebo počet. Nechcem žiadne medzisúčty, iba zlom stránky, kedykoľvek sa zmení hodnota v stĺpci A.
Toto makro problém vyrieši. Z nejakého dôvodu trvá spustenie makra, ktoré mení zalomenie stránky alebo jej nastavenie, dlho, ale určite to bude rýchlejšie ako pri manuálnom vykonaní procesu. Makro predpokladá, že vaše údaje sú v stĺpci A a že začínajú v riadku 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
