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

Hur skriver man ut en lång kolumn på en sida i Excel?

Om du antar att du har en lång lista med data i en kolumn, kanske 200 rader, och nu måste du skriva ut dem, men när du skriver ut använder den cirka 5 sidor papper, med bara en kolumn till vänster och mycket vitt utrymme på den rätta sidan. I ord kan du kolumn, men Excel har inte den här funktionen. Hur skriver du ut den långa listan på en sida för att spara papperet?

Skriv ut lång kolumn på en sida med formel

Skriv ut lång kolumn på en sida med VBA-kod

Skriv ut lång kolumn på en sida med Kutools för Excel

Fliken Office Aktiverar flikredigering och surfning i Office, och gör ditt arbete mycket enklare ...
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
  • Återanvänd allt: Lägg till de mest använda eller komplexa formlerna, diagrammen och allt annat till dina favoriter och återanvänd dem snabbt i framtiden.
  • Mer än 20 textfunktioner: Extrahera nummer från textsträng; Extrahera eller ta bort en del av texterna; Konvertera siffror och valutor till engelska ord.
  • Sammanfoga verktyg: Flera arbetsböcker och ark till en; Slå ihop flera celler / rader / kolumner utan att förlora data; Slå samman duplicerade rader och summa.
  • Dela verktyg: Dela data i flera ark baserat på värde; En arbetsbok för flera Excel-, PDF- eller CSV-filer; En kolumn till flera kolumner.
  • Klistra över Dolda / filtrerade rader; Räkna och summa av bakgrundsfärg; Skicka personliga e-postmeddelanden till flera mottagare i bulk.
  • Superfilter: Skapa avancerade filterscheman och tillämpas på alla ark; Svart per vecka, dag, frekvens och mer; Filter med fetstil, formler, kommentarer ...
  • Mer än 300 kraftfulla funktioner; Fungerar med Office 2007-2021 och 365; Stöder alla språk; Enkel implementering i ditt företag eller organisation.

pil blå höger bubbla Skriv ut lång kolumn på en sida med formel

Här kan jag presentera en lång formel för att lösa detta problem, gör så här:

1. Ange formeln i ett nytt kalkylblad i din aktiva arbetsbok =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) in i cellen A1.

Anmärkningar: Sheet1 är kalkylbladet som har den långa listan som du vill kolumnera.

45 är det radnummer som du vill lista data i en kolumn.

De är alla variabler, och du kan ändra dem efter behov.

2. Välj sedan cell A1 och dra påfyllningshanteringen ner till rad 45 och fortsätt sedan med att dra påfyllningshandtaget åt höger tills data har visats. Och den långa kolumnen har delats in i flera kolumner för att passa på en sida i ett nytt kalkylblad. Se skärmdump:

doc-print-long-column1


pil blå höger bubbla Skriv ut lång kolumn på en sida med VBA-kod

Följande VBA-kod kan också hjälpa dig att dela en lång lista med data i flera kolumner, så att du kan skriva ut data och spara papper.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

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. Tryck sedan på F5 -knappen för att köra den här koden och välj listdata som du vill dela i den poppade dialogrutan, se skärmdump:

doc-print-long-column2

4. Klicka OKoch ange antalet kolumner du vill dela. Se skärmdump:

doc-print-long-column3

5. och klicka OKhar den långa kolumnen delats upp i fem kolumner i ett nytt kalkylblad. Se skärmdumpar:

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

pil blå höger bubbla Skriv ut lång kolumn på en sida med Kutools för Excel

Både den långa formeln och VBA-koden kan vara svåra för dig, här kan jag presentera en enkel och bekväm metod för att lösa detta problem. Kutools för ExcelÄr Skriv ut flera kolumner funktionen kan hjälpa dig att snabbt dela upp den långa kolumnen i flera kolumner så att du kan skriva ut dem på ett rimligt sätt.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

När du har installerat Kutools för Excel kan du göra på följande sätt:

1. Klicka Företag > Skriv ut flera kolumner, se skärmdump:

doc-print-long-column6

2. I Skriv ut flera kolumner dialog ruta:

  • Klicka på den första doc-knapp för att välja titeln på intervallet och klicka sedan på den andra doc-knappför att välja den kolumn som du vill dela upp.
  • Ange sedan antalet rader du vill lägga per sida från Rader per utskriven sidaoch ange antalet kolumner du vill ha på en sida under Antal segment. Se skärmdump:

doc-print-long-column7

3. Klicka sedan OKhar den långa listan data delats in i fem kolumner på en sida. Se skärmdumpar:

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

Anmärkningar:

1. Titeln läggs till före varje kolumn.

2. Om du kontrollerar Skapa en länk med det aktiva arket alternativet kan de nya uppgifterna i kalkylbladet kopplas till källdata.

Klicka på om du vill veta mer om den här funktionen Skriv ut flera kolumner.


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (13)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag har en fråga relaterad till det andra alternativet "Skriv ut lång kolumn på en sida med VBA-kod". Om jag har mer än en kolumn inom intervallet hur kan jag använda samma kod. Låt säga intervallet "$A$2:$C$118" hur kan jag göra det. Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för informationen! Det var mycket användbart och lätt att använda - även för någon som saknade starka datorkunskaper (jag använde den första metoden)
Denna kommentar minimerades av moderatoren på webbplatsen
Efter att ha letat på internet i timmar, snubblade jag över detta. Det är precis vad jag letade efter. Bra jobbat och tack för att du tog dig tid till detta.
Denna kommentar minimerades av moderatoren på webbplatsen
Dear Sir Tack för detta arbete. Denna VBA-kod är till stor hjälp för mitt arbete, jag är glad att kunna slutföra min uppgift på några sekunder. Tack. ....
Denna kommentar minimerades av moderatoren på webbplatsen
Du kan använda en enkel formel =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) för att låta data flöda horisontellt i 5 kolumner. Sedan kan du välja sidstorlek, skriva ut första raden på varje sida, etc. Enkelt, snyggt, ingen VBA
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att ändra den här formeln så att den fungerar med 3 kolumner istället för 1?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag skulle också vara intresserad av en sådan här lösning.
Denna kommentar minimerades av moderatoren på webbplatsen
vart tar denna formel vägen? Jag försöker skriva ut flera rader med flera kolumner på en sida i en layout med flera rader. Liknande detta:

john smith vecka 1
john smith vecka 2
john smith totalt


Jag har över 100 rader med upp till IJ
Denna kommentar minimerades av moderatoren på webbplatsen
Tack! Formeln fungerade sömlöst!
Denna kommentar minimerades av moderatoren på webbplatsen
Eller så kan du bara kopiera tabellen och klistra in den i ett word-dokument, med så många kolumner du vill ha.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en kolumn med 10,000 XNUMX nummer och VBA-makrot kommer att ge en tabell på flera sidor. Jag skulle dock föredra att varje sida sorteras numeriskt snarare än kolumnen. All hjälp uppskattas.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en kolumn med 10,000 XNUMX unika nummer, alla sorterade. VBA-koden tillhandahåller en tabell, men kolumnerna sorteras individuellt.
Jag skulle föredra att varje sida sorteras numeriskt så att det är lätt att följa informationen sida för sida. Alla förslag är välkomna.
Keith
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Paterson,
Kanske kan följande VBA-kod göra dig en tjänst:
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



Försök gärna, hoppas det kan hjälpa dig!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL