Hoe een lange kolom op één pagina afdrukken in Excel?

Stel dat je een lange lijst met gegevens in een kolom hebt, misschien 200 rijen, en nu moet je ze afdrukken, maar wanneer je afdrukt, gebruikt het ongeveer 5 velletjes papier, met slechts één kolom aan de linkerkant en veel witruimte aan de rechterkant. In Word kun je kolommen maken, maar Excel heeft deze functie niet. Hoe druk je de lange lijst met gegevens 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 kan ik je een lange formule introduceren om dit probleem op te lossen, doe als volgt:

1. Voer in een nieuw werkblad van je huidige werkboek de formule =ALS(VERSCHUIVING(Sheet1!$A$1,(KOLOM()-1)*45+RIJ()-1,0)="","",VERSCHUIVING(Sheet1!$A$1,(KOLOM()-1)*45+RIJ()-1,0)) in cel A1.

2. Selecteer vervolgens cel A1, en sleep het vulhandvat omlaag naar rij 45, en ga door met het slepen van het vulhandvat naar rechts totdat de gegevens worden weergegeven. En de lange kolom is verdeeld in verschillende kolommen om op één pagina in een nieuw werkblad te passen. Zie screenshot:

Lange kolom op één pagina afdrukken met VBA-code

De volgende VBA-code kan je ook helpen een lange lijst met gegevens in verschillende kolommen te verdelen, zodat je de gegevens kunt afdrukken en papier kunt besparen.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

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 vervolgens op de F5-toets om deze code uit te voeren, en selecteer de lijst met gegevens die je wilt verdelen in het pop-updialoogvenster, zie screenshot:

4. Klik op OK, en voer het aantal kolommen in waarin je wilt verdelen. Zie screenshot:

5. Klik op OK, en de lange kolom is verdeeld in vijf kolommen in een nieuw werkblad. Zie screenshots:

Lange kolom op één pagina afdrukken met Kutools voor Excel

Zowel de lange formule als de VBA-code kunnen moeilijk zijn voor jou, hier kan ik je een eenvoudige en handige methode introduceren om dit probleem op te lossen. De functie Verdeel Gegevens van Kutools voor Excel kan je snel helpen de lange kolom in verschillende kolommen te verdelen, zodat je ze redelijk kunt afdrukken.

Kutools voor Excel bevat meer dan 300 handige Excel-tools. Gratis proberen zonder beperking gedurende 30 dagen. Download het nu.

Nadat je Kutools voor Excel hebt geïnstalleerd, kun je als volgt te werk gaan:

1. Klik op Kutools Plus > Verdeel Gegevens, zie screenshot:

2. In het pop-updialoogvenster:

• Klik op de eerste knop om de titel van het bereik te selecteren, en klik vervolgens op de tweede knop om de kolom te selecteren die je wilt verdelen.
• Specificeer vervolgens het aantal rijen dat je per pagina wilt plaatsen bij Rijen per afgedrukte pagina, en voer het aantal kolommen dat je op één pagina wilt hebben in onder Kolommen per pagina. Zie screenshot:

3. Klik vervolgens op OK, de lange lijst met gegevens is verdeeld in vijf kolommen op een pagina. Zie screenshots: