如何在 Excel 中將頁碼插入儲存格、頁首或頁尾？

作者Xiaoyang修改日期2024-08-20

列印 Excel 檔案時，若在頁面上加入頁碼，可讓列印出來的文件更整齊、易讀。本文將為您介紹幾種快速技巧，協助您輕鬆將頁碼插入儲存格、頁首或頁尾。

在單一工作表中將頁碼插入頁首／頁尾

在多個工作表中將頁碼插入頁首／頁尾

使用 VBA 程式碼將頁碼插入儲存格

在 Excel 中一次移除所有頁碼

在單一工作表中將頁碼插入頁首／頁尾

通常我們可以透過頁首與頁尾功能快速將頁碼插入頁首或頁尾，請依下列步驟操作：

1. 前往您要將頁碼插入頁首或頁尾的工作表。

2. 接著點擊插入 > 頁首與頁尾，您的工作表將切換至版面配置檢視模式，請參閱截圖：

顯示如何在工作表中啟用頁首與頁尾的螢幕截圖

3. 點擊您要插入頁碼的頁首或頁尾區域，功能區隨即顯示屬於頁首與頁尾工具的設計分頁，接著點擊設計> 頁碼，請參閱截圖：

將頁碼插入頁首或頁尾的螢幕截圖

4. 您會看到所選區域出現頁碼佔位符 &[Page]，接著點擊頁首或頁尾區域以外的任意位置，即可立即顯示頁碼。請參閱截圖：

顯示頁首或頁尾中頁碼的螢幕截圖

5. 現在，您可以點擊檢視> 一般，切換回一般檢視模式；列印此工作表時，頁碼將自動顯示於您所選的頁首或頁尾中。

注意：若您希望頁碼以「1／15」、「2／15」等格式顯示，只需直接在頁首或頁尾欄位方塊中輸入 &[Page] of &[Pages]即可，請參閱截圖：

顯示頁首或頁尾中以「第 X 頁，共 Y 頁」格式呈現頁碼的螢幕截圖

將工作表名稱／檔案名稱／創建時間／修改時間……插入至頁首／頁尾／儲存格：

透過 Kutools for Excel 的插入工作簿資訊工具，您能快速將工作表名稱、檔案名稱、完整檔案路徑、建立時間與修改時間等內容，一鍵插入至儲存格、頁首或頁尾，完全貼合您的需求！立即下載並免費試用 Kutools for Excel！

Kutools for Excel：內含超過 300 個實用 Excel 增益集，可免費試用 30 天，無任何限制。立即下載並免費試用！

在多個工作表中將頁碼插入頁首／頁尾

上述方法可協助您在單一工作表中插入頁碼；若您希望在活頁簿的所有工作表中插入頁碼，使所有頁面依序編號，請依下列步驟操作：

1. 選取所有工作表標籤，接著前往版面配置分頁，並點擊對話方塊啟動器按鈕圖示（位於）頁面設置群組中），請參閱截圖：

開啟「版面設定」對話方塊的螢幕截圖

2. 在頁面設置對話方塊中，請點擊頁首/頁尾分頁，再點擊自訂頁首或自訂頁尾，即可設定您所需的頁首或頁尾，詳情請參閱截圖：

按一下所需的「自訂頁首」或「自訂頁尾」按鈕的螢幕截圖

3. 在頁首或頁尾對話方塊中，請先點擊左側區段：、中央區段：或右側區段：方塊，以定義頁碼插入位置；接著點擊插入頁碼圖示，此時將出現佔位符 &[Page]。請參閱截圖：

將頁碼插入至所需位置的螢幕截圖

注意：若您希望頁碼以「1／45」、「2／45」……等格式顯示，請在頁首或頁尾欄位方塊中輸入 &[Page] of &[Pages]。

4. 接著點擊確定，即可關閉對話方塊；在您列印此活頁簿時，於列印預覽中即可看到所有頁碼已依序插入至頁首或頁尾。

使用 VBA 程式碼將頁碼插入儲存格

將頁碼插入頁首或頁尾非常簡單，但若您需要將頁碼插入工作表儲存格，則沒有直接的方法可達成。以下 VBA 程式碼或許能協助您解決此問題。

1. 點擊您希望顯示該儲存格所在頁碼的儲存格。

2. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

3. 點擊插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：將目前頁碼插入儲存格：

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. 接著按下 F5 鍵執行此程式碼，所選儲存格中即會顯示該儲存格所在的頁碼，請參閱截圖：

執行 VBA 程式碼後，儲存格中顯示頁碼的螢幕截圖

在 Excel 中一次移除所有頁碼

若要移除所有頁碼，可依下列步驟操作：

1. 選取所有工作表標籤，前往功能區的版面配置分頁，點擊頁面設置群組中的對話方塊啟動器按鈕圖示，請參閱截圖：

顯示如何開啟「版面設定」對話方塊的螢幕截圖

2. 在頁面設置對話方塊中，點擊頁首/頁尾分頁，然後從(無）下拉清單中選擇頁首或頁尾，請參閱截圖：

一次從頁首或頁尾移除所有頁碼的螢幕截圖

3. 接著點擊確定按鈕，即可一次性從活頁簿中移除所有頁碼。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多