"S" (kāpēc cilvēki nevar parakstīt savu e-pastu ar vismaz vārdu?) Uzrakstīja šodienas jautājumu.
Es mēģinu automātiski ievietot lapu pārtraukumus tabulā programmā Excel. Es izmēģināju Dati - Starpsummas, bet tas liek man pievienot summu vai Skaitījumu. Es nevēlos nekādas starpsummas, tikai lapas pārtraukums, kad A slejas vērtība mainās.
Šis makro atrisinās problēmu. Kādu iemeslu dēļ makro, kas maina lapu pārtraukumus vai lapu iestatījumus, palaišana prasa ilgu laiku, taču tas noteikti būs ātrāks, veicot procesu manuāli. Makro pieņem, ka jūsu dati atrodas A slejā un ka tie sākas 2. rindā.
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
