Wie druckt man eine lange Spalte auf einer Seite in Excel?

Angenommen, Sie haben eine lange Liste von Daten in einer Spalte, vielleicht 200 Zeilen, und jetzt müssen Sie sie ausdrucken. Wenn Sie jedoch drucken, werden etwa 5 Blätter Papier verwendet, mit nur einer Spalte auf der linken Seite und viel Weißraum auf der rechten Seite. In Word können Sie Spalten einrichten, aber Excel hat diese Funktion nicht. Wie drucken Sie die langen Listen-Daten auf einer Seite, um Papier zu sparen?

Lange Spalte auf einer Seite mit Formel drucken

Lange Spalte auf einer Seite mit VBA-Code drucken

Lange Spalte auf einer Seite mit Kutools für Excel drucken

Lange Spalte auf einer Seite mit Formel drucken

Hier kann ich Ihnen eine lange Formel vorstellen, um dieses Problem zu lösen. Bitte gehen Sie wie folgt vor:

1. Geben Sie in einem neuen Arbeitsblatt Ihrer aktiven Arbeitsmappe die Formel =WENN(VERSCHIEBUNG(Arbeitsblatt1!$A$1;(SPALTE()-1)*45+ZEILE()-1;0)="";"";VERSCHIEBUNG(Arbeitsblatt1!$A$1;(SPALTE()-1)*45+ZEILE()-1;0)) in die Zelle A1 ein.

2. Wählen Sie dann die Zelle A1 aus, und ziehen Sie den Ausfüllkästchen bis zur Zeile 45 herunter, und ziehen Sie dann den Ausfüllkästchen weiter nach rechts, bis die Daten angezeigt werden. Und die lange Spalte wurde in mehrere Spalten aufgeteilt, um auf einer Seite in einem neuen Arbeitsblatt zu passen. Siehe Screenshot:

Lange Spalte auf einer Seite mit VBA-Code drucken

Der folgende VBA-Code kann Ihnen auch helfen, eine lange Liste von Daten in mehrere Spalten aufzuteilen, damit Sie die Daten drucken und Papier sparen können.

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

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. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und wählen Sie die Listen-Daten aus, die Sie im aufgepoppten Dialogfeld aufteilen möchten, siehe Screenshot:

4. Klicken Sie auf OK, und geben Sie die Anzahl der Spalten ein, in die Sie teilen möchten. Siehe Screenshot:

5. Klicken Sie auf OK, und die lange Spalte wurde in fünf Spalten in einem neuen Arbeitsblatt aufgeteilt. Siehe Screenshots:

Lange Spalte auf einer Seite mit Kutools für Excel drucken

Sowohl die lange Formel als auch der VBA-Code können schwierig für Sie sein. Hier kann ich Ihnen eine einfache und bequeme Methode vorstellen, um dieses Problem zu lösen. Die Funktion „Daten aufteilen“ von Kutools für Excel kann Ihnen helfen, die lange Spalte schnell in mehrere Spalten aufzuteilen, damit Sie sie vernünftig drucken können.

Kutools für Excel umfasst mehr als 300 praktische Excel-Tools. Kostenlos 30 Tage lang ohne Einschränkungen testen. Holen Sie es sich jetzt.

Wenn Sie Kutools für Excel installiert haben, können Sie wie folgt vorgehen:

1. Klicken Sie auf Kutools Plus > Daten aufteilen, siehe Screenshot:

2. Im aufgepoppten Dialogfeld:

• Klicken Sie auf die erste Schaltfläche, um den Titel des Bereichs auszuwählen, und klicken Sie dann auf die zweite Schaltfläche, um die Spalte auszuwählen, die Sie aufteilen möchten.
• Geben Sie dann die Anzahl der Zeilen an, die Sie pro Seite unter Zeilen pro gedruckte Seite platzieren möchten, und geben Sie die Anzahl der Spalten ein, die Sie auf einer Seite unter Anzahl der Segmente wünschen. Siehe Screenshot:

3. Klicken Sie dann auf OK, und die langen Listen-Daten wurden in fünf Spalten auf einer Seite aufgeteilt. Siehe Screenshots: