Много столбцов в 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. Если вы проверите Создать ссылку с активным листом вариант, новые данные рабочего листа могут быть связаны с исходными данными.

Если вы хотите узнать больше об этой функции, нажмите Печать нескольких столбцов.

Предположим, у вас есть длинный список данных в столбце, может быть, 200 строк, и теперь вам нужно их распечатать, но когда вы печатаете, он использует около 5 страниц бумаги только с одним столбцом слева и много белого пространства справа. Словом, столбец можно, но в Excel этой функции нет. Как распечатать длинный список данных на одной странице, чтобы сэкономить бумагу?

Печатать длинный столбец на одной странице с формулой

Распечатать длинный столбец на одной странице с кодом VBA

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

Распечатать длинный столбец на одной странице с формула

Здесь я могу представить вам длинную формулу решения этой проблемы, пожалуйста, сделайте следующее:

1 . На новом листе активной книги введите формулу = IF (OFFSET (Sheet1! $ A $ 1, (COLUMN () – 1) * 45 + ROW () – 1,0) = “”, “”, СМЕЩЕНИЕ (Sheet1! $ A $ 1, (COLUMN () – 1) * 45 + ROW () – 1,0)) в ячейку A1.

Примечания : Sheet1 – это рабочий лист с длинным списком, который вы хотите разместить в столбце..

45 – это номер строки, в которой вы хотите перечислить данные в столбце.

Все они являются переменными, и вы можете изменить их по своему усмотрению.

2 . Затем выберите ячейку A1 и перетащите маркер заполнения вниз до строки 45, а затем продолжайте перетаскивать маркер заполнения вправо, пока данные не будут отображены. И длинный столбец был разделен на несколько столбцов, чтобы поместиться на одной странице нового рабочего листа. См. Снимок экрана:

Печатать длинный столбец на одной странице с кодом VBA

Следующий код VBA также может помочь вам разделить длинный список данных на несколько столбцов, чтобы вы могли распечатать данные и сэкономить бумагу.

1 . Удерживая нажатыми клавиши ALT + F11 , откроется окно Microsoft Visual Basic для приложений .

2 . Щелкните Insert > Module и вставьте следующий код в окно модуля.

3 . Затем нажмите клавишу F5 , чтобы запустить этот код, и выберите данные списка, которые вы хотите разделить, во всплывающем диалоговом окне, см. Снимок экрана:

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

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

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

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

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

После установки Kutools for Excel вы можете выполнить следующие действия:

1 . Нажмите Enterprise > Печать нескольких столбцов , см. Снимок экрана:

. В диалоговом окне Печать нескольких столбцов :

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

Примечания:

1. Заголовок будет добавляется перед каждым столбцом.

2. Если вы установите флажок Создать ссылку с активным листом , новый рабочий лист Данные могут быть связаны с исходными данными.

Если вы хотите узнать больше об этой функции, нажмите Печать нескольких столбцов .