Как распечатать длинный столбец на одной странице в Excel?
Предположим, у вас есть длинный список данных в одном столбце — например, 200 строк — и вы хотите его распечатать. Однако при печати он занимает около 5 страниц: только один узкий столбец слева и много пустого места справа. В Word текст легко разбить на колонки, но в Excel такой функции нет. Как распечатать длинный список данных на одной странице, чтобы сэкономить бумагу?
Печать длинного столбца на одной странице с помощью формулы
Печать длинного столбца на одной странице с помощью кода VBA
Печать длинного столбца на одной странице с помощью Kutools для Excel
Печать длинного столбца на одной странице с помощью формулы
Я могу предложить вам подробную формулу для решения этой задачи. Выполните следующие действия:
1. В ячейку A1 на новый лист вашей текущей книги введите формулу =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)=«»,"",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)).
- Sheet1 — это лист с длинным списком, который вы хотите разбить на столбцы.
- 45 — это номер строки, с которой вы хотите начать нумерацию данных в столбце.
- Все они являются переменными, и вы можете изменять их по мере необходимости.
2. Выделите ячейку A1 и протяните маркер заполнения вниз до строки 45, после чего продолжайте протягивать его вправо, пока не отобразятся все данные. Длинный столбец автоматически разделится на несколько столбцов, чтобы уместиться на одной странице в Новом листе. См. снимок экрана:
Печать длинного столбца на одной странице с помощью кода VBA
Следующий код VBA также поможет вам разбить длинный список данных на несколько столбцов, чтобы вы могли распечатать его и сэкономить бумагу.
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно модуля.
Sub SingleToMultiColumn()
Dim rng As Range
Dim iCols As Integer
Dim lRows As Long
Dim iCol As Integer
Dim lRow As Long
Dim lRowSource As Long
Dim x As Long
Dim wks As Worksheet
Set rng = Application.InputBox _
(prompt:="Select the range to convert", _
Type:=8)
iCols = InputBox("How many columns do you want?")
lRowSource = rng.Rows.Count
lRows = lRowSource / iCols
If lRows * iCols <> lRowSource Then lRows = lRows + 1
Set wks = Worksheets.Add
lRow = 1
x = 1
For iCol = 1 To iCols
Do While x <= lRows And lRow <= lRowSource
Cells(x, iCol) = rng.Cells(lRow, 1)
x = x + 1
lRow = lRow + 1
Loop
x = 1
Next
End Sub
3. Нажмите клавишу F5, чтобы запустить код, и во всплывающем диалоговом окне выберите список данных, который нужно разделить. См. снимок экрана:
4. Нажмите ОК и укажите количество столбцов, на которые нужно разделить данные. См. снимок экрана:
5. Затем нажмите ОК, и длинный столбец будет разделён на пять столбцов на новом листе. См. снимки экрана:
 |  |  |
Печать длинного столбца на одной странице с помощью Kutools для Excel
И длинная формула, и код VBA могут показаться вам сложными. Поэтому я предлагаю простой и удобный способ решения этой задачи: функция Kutools для Excel — Разделить на столбцы — позволяет быстро разбить длинный столбец на несколько столбцов для рациональной печати.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Скачать сейчас.
После установки Kutools для Excel выполните следующие шаги:
1. Нажмите KUTOOLS PLUS > Разделить на столбцы. См. снимок экрана:
2. Во всплывающем диалоговом окне:
- Нажмите первую кнопку
, чтобы выбрать заголовок диапазона, затем — вторую кнопку , чтобы указать столбец для разделения.
- Затем укажите количество строк, которое вы хотите разместить на одной странице, в поле Строк на странице, и введите количество столбцов, которое вы хотите разместить на одной странице, в поле Столбцы на странице. См. снимок экрана:
, чтобы выбрать заголовок диапазона, затем — вторую кнопку 
3. Затем нажмите ОК, и длинный список данных будет разделён на пять столбцов на одной странице. См. снимки экрана:
 | |  |
- 1. Заголовок будет добавлен перед каждым столбцом.
- 2. Если вы установите флажок Создать ссылку на текущий лист, данные из нового листа можно будет связать с исходными данными.
- Если вы хотите узнать больше об этой функции, нажмите Печать нескольких столбцов.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек