如何在Excel的最后一页以外的每个打印输出的顶部重复行？

网友投稿 242 2024-01-14

如何在Excel的最后一页以外的每个打印输出的顶部重复行？

在许多情况下，您可能需要在Excel中每个打印页面的顶部重复标题行。但是，如何在除最后一页之外的每个打印输出的顶部重复行？本文将向您展示实现它的方法。

在每个打印输出的顶部重复重复的行，最后一页除外，带有VBA代码

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

您可以运行下面的VBA代码，以打印除最后一页以外在顶部具有重复行的所有页面。请执行以下操作。

1.打开您需要在除最后一页以外的顶部重复行的工作表，然后按其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将下面的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

Copy

3。按 F5 键来运行代码，然后 Excel的Kutool 弹出对话框，请在除了最后一页以外的每个打印输出上选择需要重复的行范围，然后单击 OK 按钮。看截图：

然后，打印出该工作表中的所有页面，除了最后一页以外，某些行在顶部重复。

相关文章: 如何重复单元格的值，直到在Excel中看到或达到新值？如何在Excel的单元格中将字符重复n次？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！