如何在Excel中除了最後一頁之外，每頁列印的頂部重複列？

在許多情況下，您可能需要在Excel中每頁列印的頂部重複標題列。但如何在除了最後一頁之外的每頁列印頂部重複列呢？本文將向您展示實現此目的的方法。

使用VBA代碼在除了最後一頁之外的每頁列印頂部重複列

使用VBA代碼在除了最後一頁之外的每頁列印頂部重複列

您可以執行以下VBA代碼來列印所有頁面，並在頂部重複列，除了最後一頁。請按照以下步驟操作。

1. 打開您需要在頂部重複列（除了最後一頁）的工作表，然後同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，點擊 插入 > 模組。然後複製並將以下 VBA 代碼粘貼到模組窗口中。

VBA：在Excel中除了最後一頁之外，每頁列印的頂部重複列

Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
    If xPages > 0 Then
        With ActiveSheet.PageSetup
            .PrintTitleRows = xRg.AddressLocal
            ActiveSheet.PrintOut from:=1, To:=xPages - 1
            .PrintTitleRows = ""
             ActiveSheet.PrintOut from:=xPages, To:=xPages
        End With
    End If
End Sub

3. 按下 F5 鍵運行代碼，然後會彈出一個 Kutools for Excel 對話框，請選擇您需要在除了最後一頁之外的每頁列印頂部重複的列範圍，然後點擊 確定 按鈕。請參見截圖：

然後，此工作表中的所有頁面都會列印出來，並在頂部重複某些列，除了最後一頁。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何在Excel中重複單元格值直到看到或達到新值？
• 如何在Excel中的單元格內重複字符 n 次？