Note: The other languages of the website are Google-translated. Back to English

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

Tabblad Office Bewerking en browsen met tabbladen in Office inschakelen en uw werk veel gemakkelijker maken ...
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
  • 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.

pijl blauw rechts bel 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:

doc-print-lange-kolom1


pijl blauw rechts bel 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:

doc-print-lange-kolom2

4. Klikken OKen voer het aantal kolommen in dat u wilt verdelen. Zie screenshot:

doc-print-lange-kolom3

5. En klik op OKis de lange kolom opgedeeld in vijf kolommen in een nieuw werkblad. Zie screenshots:

doc-print-lange-kolom4 -2 doc-print-lange-kolom5

pijl blauw rechts bel 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:

doc-print-lange-kolom6

2. In de Print meerdere kolommen dialoog venster:

  • Klik op de eerste doc-knop om de titel van het bereik te selecteren en klik vervolgens op de tweede doc-knopom 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:

doc-print-lange-kolom7

3. Dan klikken OK, zijn de gegevens van de lange lijst op een pagina verdeeld in vijf kolommen. Zie screenshots:

doc-print-lange-kolom8 -2 doc-print-lange-kolom9

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.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (13)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik heb een vraag met betrekking tot de tweede optie "Lange kolom op één pagina afdrukken met VBA-code". Als ik meer dan één kolom binnen bereik heb, hoe kan ik dan dezelfde code gebruiken. Laten we zeggen het bereik van "$ A $ 2: $ C $ 118", hoe kan ik het doen werken. Bedankt.
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor deze informatie! Het was zeer nuttig en gemakkelijk te gebruiken - zelfs voor iemand die geen sterke computervaardigheden had (ik gebruikte de eerste methode)
Deze opmerking is gemaakt door de moderator op de site
Na uren zoeken op internet kwam ik deze tegen. Het is precies wat ik zocht. Leuk gedaan en bedankt dat je hier de tijd voor hebt genomen.
Deze opmerking is gemaakt door de moderator op de site
Geachte heer, bedankt voor dit werk, deze VBA-code is erg nuttig voor mijn werk, ik ben blij om mijn taak binnen enkele seconden te voltooien. Bedankt. ....
Deze opmerking is gemaakt door de moderator op de site
U kunt een eenvoudige formule gebruiken =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) om de gegevens horizontaal in 5 kolommen te laten stromen. Vervolgens kunt u Paginaformaat selecteren, de eerste rij op elke pagina afdrukken, enz. Eenvoudig, netjes, geen VBA
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om deze formule aan te passen om met 3 kolommen te werken in plaats van 1?
Deze opmerking is gemaakt door de moderator op de site
Ik zou ook geïnteresseerd zijn in een dergelijke oplossing.
Deze opmerking is gemaakt door de moderator op de site
waar gaat deze formule heen? Ik probeer meerdere rijen met meerdere kolommen op één pagina af te drukken in een lay-out met meerdere rijen. Gelijkaardig aan dit:

John Smith week 1
John Smith week 2
john smith totalen


Ik heb meer dan 100 rijen met maximaal IJ
Deze opmerking is gemaakt door de moderator op de site
Dank u! De formule werkte naadloos!
Deze opmerking is gemaakt door de moderator op de site
Of u kunt de tabel gewoon kopiëren en in een Word-document plakken, met zoveel kolommen als u wilt.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een kolom met 10,000 getallen en de VBA-macro zal een tabel op verschillende pagina's bieden. Ik zou echter liever hebben dat elke pagina numeriek wordt gesorteerd in plaats van de kolom. Alle hulp wordt op prijs gesteld.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een kolom met 10,000 unieke nummers, allemaal gesorteerd. De VBA-code biedt een tabel, maar de kolommen worden afzonderlijk gesorteerd.
Ik zou liever hebben dat elke pagina numeriek is gesorteerd, zodat de gegevens pagina voor pagina gemakkelijk te volgen zijn. Alle suggesties zijn van harte welkom.
Keith
Deze opmerking is gemaakt door de moderator op de site
Hallo Paterson,
Misschien kan de volgende VBA-code je een plezier doen:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL