如何在Excel工作表顶部重复的行中显示正确的页码,以便在多页打印时进行调整

如何在Excel工作表顶部重复的行中显示正确的页码,以便在多页打印时进行调整,excel,vba,Excel,Vba,我有一份Excel文档,其中包含一张跨越多张A4页的表格。我在顶部设置了一些重复的行,这些行在打印时确实会在每个A4页面上重复。 这些顶行的单元格包含页码和页数。每次保存Excel文档时,我都会使用一个名为VBA的sub来计算页数: Sub Refresh_NumPages() NumPages = 0 For i = 1 To ThisWorkbook.Sheets.Count If ThisWorkbook.Sheets(i).Visible = -1 The

我有一份Excel文档,其中包含一张跨越多张A4页的表格。我在顶部设置了一些重复的行,这些行在打印时确实会在每个A4页面上重复。 这些顶行的单元格包含页码和页数。每次保存Excel文档时,我都会使用一个名为VBA的sub来计算页数:

Sub Refresh_NumPages()
    NumPages = 0
    For i = 1 To ThisWorkbook.Sheets.Count
        If ThisWorkbook.Sheets(i).Visible = -1 Then
            j = ThisWorkbook.Sheets(i).PageSetup.Pages.Count
            NumPages = NumPages + j
        End If
    Next

    Worksheets("Sheet1").Cells(14, 5).Value = "Page 1/" & NumPages
End Sub
问题:每页A4的页码相同

问题:如何调整页码,就像在excel标题中一样,但在特定单元格中

例如:假设我的工作表有4页(A4),第一页单元格包含1/4,第二页单元格包含2/4,以此类推


感谢您的建议

不使用标题的原因是什么?(您当前的方法行不通)页码包含在客户强加的布局中,因此我们需要控制在何处以及如何显示页码,这就是我们将页码放入单元格的原因我认为您实际上必须在工作表上重复这些行,不是通过打印设置。按照您使用页眉的想法,是否有一种方法可以比仅使用上页边距更精确地定位页眉字段?如果我想把它移到更左边一点,比如和相应的单元格重叠?谢谢你,你必须用空格填充,直到它位于正确的位置。