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

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

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina 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:

doc-print-long-column1


šipka modrá pravá bublina 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:

doc-print-long-column2

4, klikněte OKa zadejte počet sloupců, které chcete rozdělit. Viz screenshot:

doc-print-long-column3

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:

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

šipka modrá pravá bublina 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:

doc-print-long-column6

2. V Tisk více sloupců dialogové okno:

  • Klikněte na první tlačítko doc Klepnutím na tlačítko vyberte název rozsahu a poté klepněte na druhý tlačítko docvyberte 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:

doc-print-long-column7

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:

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

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (13)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, mám dotaz související s druhou možností "Vytisknout dlouhý sloupec na jednu stránku s kódem VBA". Pokud mám v rozsahu více než jeden sloupec, jak mohu použít stejný kód. Řekněme rozsah "$A$2:$C$118", jak to mohu udělat. Dík.
Tento komentář byl moderátorem webu minimalizován
Děkujeme za tuto informaci! Bylo to velmi užitečné a snadno použitelné - dokonce i pro někoho, kdo nemá silné počítačové dovednosti (použil jsem první metodu)
Tento komentář byl moderátorem webu minimalizován
Po několika hodinách hledání na internetu jsem narazil na tohle. Je to přesně to, co jsem hledal. Dobrá práce a děkuji, že jste si na to udělali čas.
Tento komentář byl moderátorem webu minimalizován
Vážený pane, děkuji za tuto práci, tento kód VBA je pro mou práci velmi užitečný, jsem rád, že svůj úkol dokončím během několika sekund. Děkuji. ....
Tento komentář byl moderátorem webu minimalizován
Můžete použít jednoduchý vzorec =OFFSET(List1!$A$1,(ŘÁDEK()-2)*5+COLUMN(),0) a nechat data proudit vodorovně v 5 sloupcích. Poté můžete vybrat Velikost stránky, vytisknout první řádek na každou stránku atd. Jednoduché, úhledné, žádné VBA
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak upravit tento vzorec tak, aby fungoval se 3 sloupci namísto 1?
Tento komentář byl moderátorem webu minimalizován
Taky by mě zajímalo takové řešení.
Tento komentář byl moderátorem webu minimalizován
kam tento vzorec jde? Snažím se vytisknout více řádků s několika sloupci na jedné stránce ve víceřádkovém rozložení. Podobné tomuto:

týden Johna Smithe 1
týden Johna Smithe 2
John Smith celkem


Mám více než 100 řádků s až IJ
Tento komentář byl moderátorem webu minimalizován
Děkuji! Vzorec fungoval bez problémů!
Tento komentář byl moderátorem webu minimalizován
Nebo můžete tabulku zkopírovat a vložit do dokumentu aplikace Word s tolika sloupci, kolik chcete.
Tento komentář byl moderátorem webu minimalizován
Mám sloupec 10,000 XNUMX čísel a makro VBA poskytne tabulku na několika stránkách. Upřednostnil bych však, aby byla každá stránka řazena číselně spíše než sloupec. Jakákoli pomoc byla oceněna.
Tento komentář byl moderátorem webu minimalizován
Mám sloupec 10,000 XNUMX jedinečných čísel, všechna seřazená. Kód VBA poskytuje tabulku, ale sloupce jsou seřazeny jednotlivě.
Preferoval bych, aby byla každá stránka řazena číselně, aby bylo možné sledovat data stránku po stránce. Jakékoli návrhy jsou vítány.
Keith
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Patersone,
Možná vám může pomoci následující kód 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



Zkuste to prosím, doufám, že vám to pomůže!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění