Jak tisknout dlouhý sloupec na jednu stránku v aplikaci Excel?
Předpokládejme, že máte ve sloupci dlouhý seznam dat, možná 200 řádků, a nyní je musíte vytisknout, ale při tisku se spotřebuje přibližně 5 stránek papíru, pouze s jedním sloupcem na levé straně a velkým prázdným prostorem pravá strana. Ve Wordu můžete sloupcovat, ale Excel tuto funkci nemá. Jak vytisknete data dlouhého seznamu na jednu stránku, abyste ušetřili papír?
Vytiskněte dlouhý sloupec na jednu stránku pomocí vzorce
Vytiskněte dlouhý sloupec na jednu stránku s kódem VBA
Tiskněte dlouhý sloupec na jednu stránku pomocí Kutools pro Excel
Vytiskněte dlouhý sloupec na jednu stránku pomocí vzorce
Zde vám mohu představit dlouhý vzorec k vyřešení tohoto problému, udělejte prosím toto:
1. V novém listu aktivního sešitu zadejte vzorec =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) do buňky A1.
Poznámky: Sheet1 je list, který obsahuje dlouhý seznam, který chcete sloupcovat.
45 je číslo řádku, ve kterém chcete vypsat data ve sloupci.
Jsou to všechny proměnné a můžete je podle potřeby změnit.
2. Poté vyberte buňku A1 a přetáhněte úchyt výplně dolů na řádek 45 a poté přetáhněte úchyt výplně doprava, dokud se data nezobrazí. A dlouhý sloupec byl rozdělen do několika sloupců, aby se vešel na jednu stránku v novém listu. Viz screenshot:
Vytiskněte dlouhý sloupec na jednu stránku s kódem VBA
Následující kód VBA vám také pomůže rozdělit dlouhý seznam dat do několika sloupců, abyste mohli data vytisknout a ušetřit papír.
1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do okna modulu.
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. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a v rozevíracím dialogovém okně vyberte data seznamu, která chcete rozdělit, viz screenshot:
4, klikněte OKa zadejte počet sloupců, které chcete rozdělit. Viz screenshot:
5, A klikněte na tlačítko OK, dlouhý sloupec byl v novém listu rozdělen do pěti sloupců. Zobrazit snímky obrazovky:
 |
 |
 |
Tiskněte dlouhý sloupec na jednu stránku pomocí Kutools pro Excel
Dlouhý vzorec i kód VBA pro vás mohou být obtížné, zde vám mohu představit snadnou a pohodlnou metodu řešení tohoto problému. Kutools pro ExcelJe Tisk více sloupců Funkce vám pomůže rychle rozdělit dlouhý sloup na několik sloupců, abyste je mohli rozumně vytisknout.
Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.
Po instalaci aplikace Kutools pro Excel můžete postupovat podle následujících kroků:
1, klikněte Enterprise > Tisk více sloupců, viz screenshot:
2. V Tisk více sloupců dialogové okno:
- Klikněte na první
Klepnutím na tlačítko vyberte název rozsahu a poté klepněte na druhý vyberte sloupec, který chcete rozdělit. - Poté zadejte počet řádků, ze kterých chcete vložit na stránku Řádky na vytištěnou stránkua zadejte požadovaný počet sloupců na jedné stránce pod Počet segmentů. Viz snímek obrazovky:
3. Pak klikněte na tlačítko OK, byl dlouhý seznam dat rozdělen do pěti sloupců na stránce. Zobrazit snímky obrazovky:
 |
|
 |
Poznámky:
1. Název bude přidán před každý sloupec.
2. Pokud zaškrtnete Vytvořte odkaz s aktivním listem možnost, nová data listu lze propojit se zdrojovými daty.
Pokud se chcete o této funkci dozvědět více, klikněte prosím Tisk více sloupců.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
