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
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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!