Як надрукувати довгий стовпець на одній сторінці в Excel?
Припустимо, у вас є довгий список даних у стовпці, можливо, 200 рядків, і тепер вам потрібно їх роздрукувати, але при друку використовується приблизно 5-сторінковий папір, лише один стовпець ліворуч, і багато пробілу на правий бік. Словом, ви можете робити стовпець, але Excel не має цієї функції. Як надрукувати дані довгого списку на одній сторінці, щоб зберегти папір?
Надрукуйте довгий стовпець на одній сторінці з формулою
Надрукуйте довгий стовпець на одній сторінці з кодом VBA
Надрукуйте довгий стовпець на одній сторінці за допомогою Kutools для Excel
Надрукуйте довгий стовпець на одній сторінці з формулою
Тут я можу представити вам довгу формулу для вирішення цієї проблеми, будь ласка, зробіть так:
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, а потім перетягніть маркер заповнення вправо, доки дані не відобразяться. А довгий стовпець був розділений на кілька стовпців, щоб поміститися на одній сторінці в новому аркуші. Дивіться знімок екрана:
Надрукуйте довгий стовпець на одній сторінці з кодом 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 клавішу, щоб запустити цей код, і виберіть спливаючі дані, які ви хочете розділити у спливаючому діалоговому вікні, див. знімок екрана:
4. Клацання OKта введіть кількість стовпців, які потрібно розділити. Дивіться знімок екрана:
5, І натисніть OK, довгий стовпець був розділений на п'ять стовпців на новому аркуші. Дивіться скріншоти:
Надрукуйте довгий стовпець на одній сторінці за допомогою Kutools для Excel
Як довга формула, так і код VBA можуть бути вам важкими, тут я можу представити вам простий і зручний метод вирішення цієї проблеми. Kutools для ExcelАвтора Друк кількох стовпців функція може допомогти вам швидко розділити довгий стовпець на кілька стовпців, щоб ви могли їх розумно роздрукувати.
Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз.
Коли ви встановили Kutools для Excel, ви можете виконати такі дії:
1. Клацання підприємство > Друк кількох стовпців, див. скріншот:
2, в Друк кількох стовпців діалогове вікно:
- Клацніть перший , щоб вибрати заголовок діапазону, а потім натисніть другу , щоб вибрати стовпець, який потрібно розділити.
- Потім вкажіть кількість рядків, які потрібно розмістити на сторінці Рядки на друкованій сторінціта введіть потрібну кількість стовпців на одній сторінці Кількість сегментів. Дивіться знімок екрана:
3. Потім натисніть OK, дані довгого списку були розділені на п’ять стовпців на сторінці. Дивіться скріншоти:
Примітки:
1. Заголовок буде додано перед кожним стовпцем.
2. Якщо ви перевірите Створіть посилання з активним аркушем опція, нові дані робочого аркуша можуть бути пов’язані з вихідними даними.
Якщо ви хочете дізнатись більше про цю функцію, натисніть Друк кількох стовпців.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!