Hoe lange kolom op één pagina in Excel afdrukken?
Stel dat u een lange lijst met gegevens in een kolom heeft, misschien 200 rijen, en nu moet u ze afdrukken, maar als u afdrukt, gebruikt het ongeveer 5 pagina's papier, met slechts één kolom aan de linkerkant en veel witruimte op de goede kant. In woord kunt u kolommen gebruiken, maar Excel heeft deze functie niet. Hoe druk je de lange lijstgegevens op één pagina af om papier te besparen?
Print lange kolom op één pagina met formule
Druk lange kolom op één pagina af met VBA-code
Druk een lange kolom op één pagina af met Kutools voor Excel
- Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
- Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
- Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
- Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
- Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
- Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Sorteer per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
- Meer dan 300 krachtige functies; Werkt met Office 2007-2021 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.
Print lange kolom op één pagina met formule
Hier kan ik u een lange formule voorstellen om dit probleem op te lossen, doe dit als volgt:
1. Voer de formule in een nieuw werkblad van uw actieve werkmap in =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) in de cel A1.
Opmerkingen: Sheet1 is het werkblad met de lange lijst die u in kolommen wilt plaatsen.
45 is het rijnummer waarvan u de gegevens in een kolom wilt weergeven.
Het zijn allemaal variabelen en u kunt ze naar behoefte wijzigen.
2. Selecteer vervolgens cel A1 en sleep de vulgreep omlaag naar rij 45, en sleep de vulgreep vervolgens naar rechts totdat de gegevens zijn weergegeven. En de lange kolom is opgedeeld in verschillende kolommen om op één pagina in een nieuw werkblad te passen. Zie screenshot:
Druk lange kolom op één pagina af met VBA-code
De volgende VBA-code kan u ook helpen bij het verdelen van een lange lijst met gegevens in verschillende kolommen, zodat u de gegevens kunt afdrukken en papier kunt besparen.
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
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. Druk vervolgens op F5 toets om deze code uit te voeren, en selecteer de lijstgegevens die u wilt verdelen in het pop-upvenster, zie screenshot:
4. Klikken OKen voer het aantal kolommen in dat u wilt verdelen. Zie screenshot:
5. En klik op OKis de lange kolom opgedeeld in vijf kolommen in een nieuw werkblad. Zie screenshots:
![]() |
![]() |
![]() |
Druk een lange kolom op één pagina af met Kutools voor Excel
Zowel de lange formule als de VBA-code kunnen moeilijk voor je zijn, hier kan ik je een eenvoudige en handige methode voorstellen om dit probleem op te lossen. Kutools for Excel's Print meerdere kolommen functie kan u helpen de lange kolom snel in verschillende kolommen te verdelen, zodat u ze redelijk kunt afdrukken.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.
Als u Kutools voor Excel hebt geïnstalleerd, kunt u de volgende stappen uitvoeren:
1. Klikken Enterprise > Print meerdere kolommen, zie screenshot:
2. In de Print meerdere kolommen dialoog venster:
- Klik op de eerste
om de titel van het bereik te selecteren en klik vervolgens op de tweede
om de kolom te selecteren die u wilt verdelen.
- Geef vervolgens het aantal rijen op waaruit u per pagina wilt plaatsen Rijen per afgedrukte paginaen voer het aantal kolommen in dat u op een pagina wilt weergeven Aantal segmenten. Zie screenshot:
3. Dan klikken OK, zijn de gegevens van de lange lijst op een pagina verdeeld in vijf kolommen. Zie screenshots:
![]() |
![]() |
![]() |
Opmerkingen:
1. De titel wordt voor elke kolom toegevoegd.
2. Als u controleert Maak een link met het actieve blad optie kunnen de nieuwe werkbladgegevens worden gekoppeld aan de brongegevens.
Wilt u meer weten over deze functie, klik dan op Print meerdere kolommen.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!













