如何在Excel中每个已打印页面的底部重复打印行？

Sub MyFooter() Dim xTxt As String Dim xAddress As String Dim xRg As Range Dim xCell As Range On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8) If xRg Is Nothing Then Exit Sub For Each xCell In xRg xTxt = xTxt & xCell.Value & " " Next ActiveSheet.PageSetup.LeftFooter = xTxt End Sub

在Excel中的第n行中轻松重复标题行：

Kutools for Excels 插入标题行 

实用程序可以帮助您快速将标题行插入Excel中选定范围内的第n行之前，如下所示。

立即下载并试用！ (30-天免费试用）

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！