Note: The other languages of the website are Google-translated. Back to English
English English

Як надрукувати довгий стовпець на одній сторінці в 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (13)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, у мене є запитання щодо другого параметра «Друк довгого стовпця на одній сторінці з кодом VBA». Якщо я маю більше одного стовпця в діапазоні, як я можу використовувати той самий код. Скажемо діапазон "$A$2:$C$118", як я можу це зробити. Спасибі.
Цей коментар був мінімізований модератором на сайті
Дякую за цю інформацію! Він був дуже корисним і простим у використанні - навіть для тих, хто не володіє сильними комп'ютерними навичками (я використовував перший метод)
Цей коментар був мінімізований модератором на сайті
Після кількох годин пошуку в Інтернеті я натрапив на це. Це саме те, що я шукав. Гарна робота, і дякую, що знайшли для цього час.
Цей коментар був мінімізований модератором на сайті
Шановний сер, дякую за цю роботу, Цей код VBA дуже корисний для моєї роботи, я радий виконати своє завдання за секунди. Дякую. ....
Цей коментар був мінімізований модератором на сайті
Ви можете використати просту формулу =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0), щоб забезпечити перетікання даних горизонтально в 5 стовпців. Потім ви можете вибрати розмір сторінки, друкувати перший рядок на кожній сторінці тощо. Просто, акуратно, без VBA
Цей коментар був мінімізований модератором на сайті
Чи є спосіб змінити цю формулу для роботи з 3 стовпцями замість 1?
Цей коментар був мінімізований модератором на сайті
Мене також цікавить таке рішення.
Цей коментар був мінімізований модератором на сайті
куди йде ця формула? Я намагаюся надрукувати кілька рядків з кількома стовпцями на одній сторінці в багаторядковому макеті. Подібний до цього:

Джон Сміт тиждень 1
Джон Сміт тиждень 2
Джон Сміт підсумки


У мене є понад 100 рядків до IJ
Цей коментар був мінімізований модератором на сайті
Дякую! Формула працювала безперебійно!
Цей коментар був мінімізований модератором на сайті
Або ви можете просто скопіювати таблицю та вставити її в документ word з такою кількістю стовпців, яку ви хочете мати.
Цей коментар був мінімізований модератором на сайті
У мене є стовпець із 10,000 XNUMX чисел, і макрос VBA надасть таблицю на кількох сторінках. Однак я хотів би, щоб кожна сторінка була відсортована за числом, а не за колонками. Будь-яка допомога вдячна.
Цей коментар був мінімізований модератором на сайті
У мене є стовпець з 10,000 XNUMX унікальних номерів, усі відсортовані. Код VBA надає таблицю, але стовпці сортуються окремо.
Я б віддав перевагу, щоб кожна сторінка була відсортована за числом, щоб було легше стежити за даними сторінка за сторінкою. Будь-які пропозиції дуже вітаються.
Кит
Цей коментар був мінімізований модератором на сайті
Привіт, Патерсоне,
Можливо, наступний код VBA допоможе вам:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



Будь ласка, спробуйте, сподіваюся, це допоможе вам!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця