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