«S» (почему люди не могут подписывать свои электронные письма хотя бы именем?) Написал сегодняшний вопрос.
Я пытаюсь автоматически помещать разрывы страниц в таблицу в Excel. Я попробовал данные - промежуточные итоги, но это заставило меня добавить сумму или счет. Мне не нужны промежуточные итоги, просто разрыв страницы при изменении значения в столбце A.
Этот макрос решит проблему. По какой-то причине макросы, которые изменяют разрывы страниц или настройки страниц, требуют много времени для запуска, но это, безусловно, будет быстрее, чем выполнение процесса вручную. Макрос предполагает, что ваши данные находятся в столбце A и начинаются в строке 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
