如何在Excel中的一頁上打印長列？

假設你有一列很長的數據列表，可能有200行，現在你需要打印它們，但是打印時大約用了5頁紙，左邊只有一列，而且上面有很多空白右側。 Word中可以列，但Excel沒有這個功能。 如何將長列表數據打印在一頁上以節省紙張？

使用公式在一頁上打印長列

使用 VBA 代碼在一頁上打印長列

使用 Kutools for Excel 在一頁上列印長列

使用公式在一頁上打印長列

這裡我可以給你介紹一個很長的公式來解決這個問題，請這樣做：

1。 在活動工作簿的新工作表中，輸入公式 =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) 進入單元格 A1。

2。 然後選擇單元格 A1，並將填充柄向下拖動到第 45 行，然後繼續向右拖動填充柄，直到顯示數據。 長列已分為幾列，以適合新工作表中的一頁。 看截圖：

使用 VBA 代碼在一頁上打印長列

下面的VBA代碼還可以幫助您將一長串數據分成幾列，以便您可以打印數據並節省紙張。

1。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到“模塊窗口”中。

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。 然後按 F5 鍵運行此代碼，在彈出的對話框中選擇要分割的列表數據，見截圖：

4。 點擊 OK，然後輸入要劃分的列數。 看截圖：

5。 並點擊 OK，長列已在新工作表中分為五列。 看截圖：

使用 Kutools for Excel 在一頁上列印長列

冗長的公式和VBA代碼可能對你來說很困難，這裡我可以向你介紹一個簡單方便的方法來解決這個問題。 Excel的Kutools“ 拆分為列 函數可以幫助您快速將長欄分成幾欄，以便您可以合理地打印它們。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用，不受限制。 立即獲取.

安裝Kutools for Excel之後，可以執行以下步驟：

1。 點擊 Kutools 加 > 拆分為列，請參見屏幕截圖：

2。在彈出的對話框中：

• 點擊第一個  按鈕選擇範圍的標題，然後單擊第二個  按鈕來選擇要劃分的列。
• 然後指定每頁要放置的行數 每頁打印的行數，然後在下面輸入您想要在一頁中顯示的列數 段數。 看截圖：

3。 然後點擊 OK，長列表數據已被分成一頁中的五列。 看截圖：