Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як надрукувати довгий стовпець на одній сторінці в Excel?

Припустимо, у вас є довгий список даних у стовпці, можливо, 200 рядків, і тепер вам потрібно їх роздрукувати, але при друку використовується приблизно 5-сторінковий папір, лише один стовпець ліворуч, і багато пробілу на правий бік. Словом, ви можете робити стовпець, але Excel не має цієї функції. Як надрукувати дані довгого списку на одній сторінці, щоб зберегти папір?

Надрукуйте довгий стовпець на одній сторінці з формулою

Надрукуйте довгий стовпець на одній сторінці з кодом VBA

Надрукуйте довгий стовпець на одній сторінці за допомогою Kutools для Excel

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2019 та 365; Підтримує всі мови; Простота розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Надрукуйте довгий стовпець на одній сторінці з формулою


Тут я можу представити вам довгу формулу для вирішення цієї проблеми, будь ласка, зробіть так:

1. На новому аркуші вашої активної книги введіть формулу =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) в клітинку А1.

примітки: Sheet1 це робочий аркуш, у якому є довгий список, який ви хочете розмістити у стовпці.

45 - це номер рядка, для якого потрібно вказати дані у стовпці.

Усі вони є змінними, і ви можете змінювати їх відповідно до своїх потреб.

2. Потім виділіть комірку А1 і перетягніть маркер заповнення до рядка 45, а потім перетягніть маркер заповнення вправо, доки дані не відобразяться. А довгий стовпець був розділений на кілька стовпців, щоб поміститися на одній сторінці в новому аркуші. Дивіться знімок екрана:

doc-print-long-column1


стрілка синя права міхур Надрукуйте довгий стовпець на одній сторінці з кодом VBA

Наступний код VBA також може допомогти вам розділити довгий список даних на кілька стовпців, щоб ви могли надрукувати дані та заощадити папір.

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

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

doc-print-long-column2

4. Клацання OKта введіть кількість стовпців, які потрібно розділити. Дивіться знімок екрана:

doc-print-long-column3

5, І натисніть OK, довгий стовпець був розділений на п'ять стовпців на новому аркуші. Дивіться скріншоти:

doc-print-long-column4 -2 doc-print-long-column5

стрілка синя права міхур Надрукуйте довгий стовпець на одній сторінці за допомогою Kutools для Excel

Як довга формула, так і код VBA можуть бути вам важкими, тут я можу представити вам простий і зручний метод вирішення цієї проблеми. Kutools для ExcelАвтора Друк кількох стовпців функція може допомогти вам швидко розділити довгий стовпець на кілька стовпців, щоб ви могли їх розумно роздрукувати.

Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз.

Після встановлення Kutools для Excel можна виконати такі дії:

1. Клацання підприємство > Друк кількох стовпців, див. скріншот:

doc-print-long-column6

2, в Друк кількох стовпців діалогове вікно:

  • Клацніть перший кнопка doc, щоб вибрати заголовок діапазону, а потім натисніть другу кнопка doc, щоб вибрати стовпець, який потрібно розділити.
  • Потім вкажіть кількість рядків, які потрібно розмістити на сторінці Рядки на друкованій сторінціта введіть потрібну кількість стовпців на одній сторінці Кількість сегментів. Дивіться знімок екрана:

doc-print-long-column7

3. Потім натисніть OK, дані довгого списку були розділені на п’ять стовпців на сторінці. Дивіться скріншоти:

doc-print-long-column8 -2 doc-print-long-column9

Примітки:

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

2. Якщо ви перевірите Створіть посилання з активним аркушем опція, нові дані робочого аркуша можуть бути пов’язані з вихідними даними.

Якщо ви хочете дізнатись більше про цю функцію, натисніть Друк кількох стовпців.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    George · 4 years ago
    Or you can just copy the table, and paste it in a word document, with as many columns you want to have.
  • To post as a guest, your comment is unpublished.
    Beckett Kirk · 4 years ago
    Thank you! The formula worked seamlessly!
  • To post as a guest, your comment is unpublished.
    Jake Kacher · 4 years ago
    You can use a simple formula =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) to let the data flow horizontally in 5 columns.
    Then you can select Page size, print first row on each page, etc. Simple, neat, no VBA
    • To post as a guest, your comment is unpublished.
      Jen · 4 years ago
      where does this formula go? I am trying to print multiple rows with several columns on one page in a multiple row layout. Similar to this:

      john smith week 1
      john smith week 2
      john smith totals


      I have over 100 rows with up to IJ
    • To post as a guest, your comment is unpublished.
      Tara · 4 years ago
      Is there a way to modify this formula to work with 3 columns instead of 1?
      • To post as a guest, your comment is unpublished.
        Jeremy · 4 years ago
        I would be interested in a solution like this as well.
  • To post as a guest, your comment is unpublished.
    Mohsin Dastgeer · 4 years ago
    Dear Sir
    Thanks for this work, This VBA Code is very helpful for my work, I am glad to complete my task in seconds. Thank You. ....
  • To post as a guest, your comment is unpublished.
    Ron · 5 years ago
    After searching the internet for hours, I stumbled across this. Its exactly what I was looking for. Nice job and thanks for taking the time out for this.
  • To post as a guest, your comment is unpublished.
    Tarina · 6 years ago
    Thank you for this information! It was very helpful and easy to use - even for somebody lacking strong computer skills (I used the first method)
  • To post as a guest, your comment is unpublished.
    Antonio · 8 years ago
    Hello, I have a question related to the second option "Print long column on one page with VBA code".

    If i have more than one column in range how can I use the same code. Let say the range of "$A$2:$C$118" how can i do it work.

    Thanks.