Hoe drukt u een lange kolom op één pagina af in Excel?
Stel dat u een lange lijst met gegevens in één kolom hebt – bijvoorbeeld 200 rijen – en u deze wilt afdrukken. Bij het afdrukken gebruikt u ongeveer vijf pagina’s papier, met slechts één kolom aan de linkerkant en veel witruimte aan de rechterkant. In Word kunt u kolommen maken, maar Excel biedt die functie niet. Hoe drukt u die lange lijst dan op één pagina af om papier te besparen?
Lange kolom op één pagina afdrukken met formule
Lange kolom op één pagina afdrukken met VBA-code
Lange kolom op één pagina afdrukken met Kutools voor Excel
Lange kolom op één pagina afdrukken met formule
Hier geef ik u een uitgebreide formule om dit probleem op te lossen. Volg deze stappen:
1. Voer in een nieuw werkblad van uw huidige werkboek de formule =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) in cel A1 in.
- Sheet1 is het werkblad met de lange lijst die u in kolommen wilt verdelen.
- 45 is het rijnummer waarop u de gegevens in een kolom wilt weergeven.
- Dit zijn allemaal variabelen die u naar wens kunt aanpassen.
2. Selecteer vervolgens cel A1 en sleep de vulgreep naar beneden tot rij 45. Sleep daarna de vulgreep verder naar rechts totdat alle gegevens zichtbaar zijn. De lange kolom is nu netjes verdeeld over meerdere kolommen die perfect passen op één pagina in een nieuw werkblad. Zie schermafbeelding:
Lange kolom op één pagina afdrukken met VBA-code
De volgende VBA-code helpt u ook om een lange lijst met gegevens over meerdere kolommen te verdelen, zodat u papier bespaart bij het afdrukken.
1. Houd de toetsencombinatie ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en 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 daarna op de toets F5 om deze code uit te voeren en selecteer in het verschijnende dialoogvenster de lijst met gegevens die u wilt splitsen. Zie schermafbeelding:
4. Klik op OK en geef het gewenste aantal kolommen op. Zie schermafbeelding:
5. Klik vervolgens op OK, waarna de lange kolom over vijf kolommen wordt verdeeld in een nieuw werkblad. Zie schermafbeeldingen:
 |  |  |
Lange kolom op één pagina afdrukken met Kutools voor Excel
Zowel de uitgebreide formule als de VBA-code kunnen lastig zijn. Daarom geef ik u hier een eenvoudige en handige methode om dit probleem op te lossen. Met de functie Kutools voor Excel’s Splitsen naar kolommen kunt u snel een lange kolom verdelen over meerdere kolommen, zodat u deze efficiënt kunt afdrukken.
Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download nu.
Nadat u Kutools voor Excel hebt geïnstalleerd, voert u de volgende stappen uit:
1. Klik op KUTOOLS PLUS > Splitsen naar kolommen. Zie schermafbeelding:
2. In het verschijnende dialoogvenster:
- Klik op de eerste
knop om de titel van het bereik te selecteren en daarna op de tweede knop om de kolom te kiezen die u wilt splitsen.
- Geef vervolgens via Rijen per pagina op hoeveel rijen u per pagina wilt plaatsen, en voer onder Kolommen per pagina het gewenste aantal kolommen per pagina in. Zie schermafbeelding:
knop om de titel van het bereik te selecteren en daarna op de tweede 
3. Klik daarna op OK, waarna de lange lijst met gegevens over vijf kolommen op één pagina wordt verdeeld. Zie schermafbeeldingen:
 | |  |
- 1. De titel wordt vóór elke kolom geplaatst.
- 2. Als u de optie Maak een koppeling met het huidige werkblad inschakelt, worden de gegevens van het nieuwe werkblad gekoppeld aan de brongegevens.
- Wilt u meer weten over deze functie? Klik dan op Meerdere kolommen afdrukken.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins