размер страницы в одну ячейку

[heyjoe]

Господа очень требуется помощь профессионалов.
Ситуция следующая:
Существует таблица, состоящая из одной колонки и 2000 строк.
Т.е. сейчас одна страница включает порядка 50 строк
можно ли как нибудь автоматизированно уменьшить размер страницы до размера одной ячейки(т.е. чтобы получилось 2000 страниц) с сохранением инфы, которая была в ячейках. Спасибо.

[heyjoe]

Пользуюсь Excel 2007

[EducatedFool]

Запустите такой макрос:

Sub test()
    awv = ActiveWindow.View: ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.ResetAllPageBreaks: '  On Error Resume Next
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([A2], Range("A" & Rows.Count).End(xlUp)).Cells
        ActiveSheet.HPageBreaks.Add cell
    Next cell
    ActiveWindow.View = awv
End Sub

[heyjoe]

спасибо большое, то что доктор прописал!!!