Перейти к основному содержанию
 

Как распечатать длинную колонку на одной странице в Excel?

Автор: Сяоян Последнее изменение: 2024 июля 07 г.

Предположим, у вас есть длинный список данных в столбце, может быть, 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 нажмите клавишу для запуска этого кода и выберите данные списка, которые вы хотите разделить, во всплывающем диалоговом окне, см. снимок экрана:

распечатать длинный столбец на несколько столбцов с помощью vba 1

4. Нажмите OKи введите количество столбцов, которые вы хотите разделить. Смотрите скриншот:

распечатать длинный столбец на несколько столбцов с помощью vba 2

5, И нажмите OK, длинный столбец разделен на пять столбцов на новом листе. Смотрите скриншоты:

распечатать длинный столбец на несколько столбцов с помощью vba 3 стрелка распечатать длинный столбец на несколько столбцов с помощью vba 4

стрелка синий правый пузырь Распечатать длинный столбец на одной странице с помощью Kutools for Excel

Как длинная формула, так и код VBA могут быть трудными для вас, здесь я могу представить вам простой и удобный способ решения этой проблемы. Kutools for ExcelАвтора Разделить на столбцы Функция может помочь вам быстро разделить длинный столбец на несколько столбцов, чтобы их можно было распечатать разумно.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

Когда вы установили Kutools for Excel, вы можете сделать следующие шаги:

1. Нажмите Кутулс Плюс > Разделить на столбцы, см. снимок экрана:

распечатать длинный столбец на несколько столбцов с помощью kutools 1

2. В появившемся диалоговом окне:

  • Щелкните первую кнопка документа кнопку, чтобы выбрать заголовок диапазона, а затем щелкните второй кнопка документа кнопку, чтобы выбрать столбец, который вы хотите разделить.
  • Затем укажите количество строк, которые вы хотите поместить на страницу из Строк на печатной странице, и введите количество столбцов на одной странице под Количество сегментов. Смотрите скриншот:

распечатать длинный столбец на несколько столбцов с помощью kutools 2

3. Затем нажмите OKданные длинного списка разделены на пять столбцов на странице. Смотрите скриншоты:

распечатать длинный столбец на несколько столбцов с помощью kutools 3 стрелка распечатать длинный столбец на несколько столбцов с помощью kutools 4
Заметки:
  • 1. Заголовок будет добавлен перед каждым столбцом.
  • 2. Если вы проверите Создать ссылку с активным листом вариант, новые данные рабочего листа могут быть связаны с исходными данными.
  • Если вы хотите узнать больше об этой функции, нажмите Печать нескольких столбцов.

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!