如何在 Excel 中將長欄資料完整列印在一頁上？

作者Xiaoyang修改日期2024-07-30

假設您有一份長達 200 列的單欄資料清單，列印時卻佔用約 5 頁紙張，僅在左側顯示一欄，右側留下大片空白。雖然 Word 支援分欄功能，但 Excel 並無此選項。該如何將這份長清單巧妙排版，一次列印在一頁上以節省紙張？

使用公式將長欄資料列印在一頁上

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

在此我提供一個較長的公式來解決此問題，請依下列步驟操作：

1. 在您目前工作簿的任一新工作表中，於儲存格 A1 輸入公式 =IF(OFFSET(Sheet 1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet 1!$A$1,(COLUMN()-1)*45+ROW()-1,0))。

注意事項：

Sheet 1 是包含您欲進行分欄之長資料清單的工作表。
45 是您希望將資料置於欄中的列號。
這些都是變數，您可依需求自由調整。

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 鍵執行此程式碼，在彈出的對話方塊中選取您要分割的清單資料。請參閱螢幕截圖：

使用 VBA 將長欄列印為多欄 1

4. 點擊確定，並輸入您要分割的欄數。請參閱螢幕截圖：

使用 VBA 將長欄列印為多欄 2

5. 再按一下確定，長欄資料便會在新工作表中分割為五個欄位。請參閱螢幕截圖：

使用 Kutools for Excel 將長欄資料列印在一頁上

上述長公式與 VBA 程式碼對您來說可能較為複雜，這裡為您介紹一種簡單又高效的方法來輕鬆解決此問題！Kutools for Excel 的分割至多列功能，可協助您快速將長欄資料拆分為多個欄位，讓列印更清晰、更合理！

Kutools for Excel 包含超過 300 種實用的 Excel 工具，免費試用 30 天，無任何限制！立即取得

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 點擊 KUTOOLS PLUS> 分割至多列。請參閱螢幕截圖：

使用 Kutools 將長欄列印為多欄 1

2. 在彈出的對話方塊中：

先點擊第一個按鈕，選取範圍的標題；再點擊第二個按鈕，選取您要分割的欄位。
接著在每頁行數中指定每頁要放置的列數，並在每頁欄數下方輸入每頁所需的欄數。請參閱螢幕截圖：

使用 Kutools 將長欄列印為多欄 2

3. 接著按一下確定，長清單資料便會分割為五個欄位並置於一頁中。請參閱螢幕截圖：

注意事項：

1. 標題會在每個欄位前加入。
2. 若您勾選和當前工作表建立連結選項，新工作表的資料即可與原始數據建立連結。
若想進一步了解此功能，請按一下列印多欄。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多