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
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:
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:
4. Klicka OKoch ange antalet kolumner du vill dela. Se skärmdump:
5. och klicka OKhar den långa kolumnen delats upp i fem kolumner i ett nytt kalkylblad. Se skärmdumpar:
 |
 |
 |
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:
2. I Skriv ut flera kolumner dialog ruta:
- Klicka på den första
för att välja titeln på intervallet och klicka sedan på den andra fö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:
3. Klicka sedan OKhar den långa listan data delats in i fem kolumner på en sida. Se skärmdumpar:
 |
|
 |
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.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!
