"S" (zakaj se ljudje ne morejo podpisati pod e-pošto vsaj z imenom?) Je napisal današnje vprašanje.
Poskušam samodejno vstaviti prelome strani v tabelo v Excelu. Preizkusil sem podatke - vmesne vsote, vendar me to prisili, da dodam vsoto ali štetje. Ne želim nobenih vmesnih seštevkov, le prelom strani, kadar koli se spremeni vrednost v stolpcu A.
Ta makro bo rešil težavo. Iz nekega razloga se makri, ki spreminjajo prelome strani ali nastavitve strani, dolgo zaženejo, vendar bo to zagotovo hitreje kot ročno izvajanje postopka. Makro predvideva, da so vaši podatki v stolpcu A in da se začnejo v 2. vrstici.
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
