Как распечатать длинную колонку на одной странице в Excel?
Предположим, у вас есть длинный список данных в столбце, может быть, 200 строк, и теперь вам нужно их распечатать, но когда вы печатаете, он использует около 5 страниц бумаги, только с одним столбцом слева и большим пустым пространством на правая сторона. Словом, столбец можно, но в Excel этой функции нет. Как распечатать длинный список данных на одной странице, чтобы сэкономить бумагу?
Распечатать длинный столбец на одной странице с формулой
Распечатать длинный столбец на одной странице с кодом VBA
Распечатать длинный столбец на одной странице с помощью Kutools for Excel
Распечатать длинный столбец на одной странице с формулой
Здесь я могу представить вам длинную формулу решения этой проблемы, пожалуйста, сделайте так:
1. На новом листе активной книги введите формулу =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) в ячейку A1.
- 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. Нажмите OKи введите количество столбцов, которые вы хотите разделить. Смотрите скриншот:
5, И нажмите OK, длинный столбец разделен на пять столбцов на новом листе. Смотрите скриншоты:
Распечатать длинный столбец на одной странице с помощью Kutools for Excel
Как длинная формула, так и код VBA могут быть трудными для вас, здесь я могу представить вам простой и удобный способ решения этой проблемы. Kutools for ExcelАвтора Разделить на столбцы Функция может помочь вам быстро разделить длинный столбец на несколько столбцов, чтобы их можно было распечатать разумно.
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.
Когда вы установили Kutools for Excel, вы можете сделать следующие шаги:
1. Нажмите Кутулс Плюс > Разделить на столбцы, см. снимок экрана:
2. В появившемся диалоговом окне:
- Щелкните первую кнопку, чтобы выбрать заголовок диапазона, а затем щелкните второй кнопку, чтобы выбрать столбец, который вы хотите разделить.
- Затем укажите количество строк, которые вы хотите поместить на страницу из Строк на печатной странице, и введите количество столбцов на одной странице под Количество сегментов. Смотрите скриншот:
3. Затем нажмите OKданные длинного списка разделены на пять столбцов на странице. Смотрите скриншоты:
- 1. Заголовок будет добавлен перед каждым столбцом.
- 2. Если вы проверите Создать ссылку с активным листом вариант, новые данные рабочего листа могут быть связаны с исходными данными.
- Если вы хотите узнать больше об этой функции, нажмите Печать нескольких столбцов.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!