如何在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次？