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

Print lange kolom op één pagina met formule

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

---

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.

Lees verder... Gratis download... Aankoop... 

---

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!

Lees verder... Gratis download... Aankoop...