"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
