„S“ (защо хората не могат да подпишат имейла си поне с собствено име?) Написа днешния въпрос.
Опитвам се автоматично да поставя прекъсвания на страници в таблица в Excel. Опитах данни - междинни суми, но това ме принуждава да добавя сума или брой. Не искам никакви междинни суми, просто прекъсване на страница, когато стойността в колона А се промени.
Този макрос ще реши проблема. По някаква причина макросите, които променят прекъсванията на страниците или настройките на страниците, отнемат много време, за да се изпълнят, но това със сигурност ще бъде по-бързо, отколкото ръчното изпълнение на процеса. Макросът приема, че данните ви са в колона А и че започват в ред 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
