我有一个Excel文档，其中包含一张横跨多个A4页的工作表。我设置了一些行以在顶部重复，在打印时确实在每个A4页面上重复。 这些最上面一行的单元格包含页码和页数。每次保存Excel文档时，我都会使用一个称为VBA的子页面来计算页面数：

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，依此类推。

谢谢您的建议