如何在Excel中的單元格/頁眉/頁腳中插入頁碼？

當您打印Excel文件時，可能需要在頁中插入頁碼，以使文件清晰，可讀。 在本文中，我將介紹一些快速技巧，為您插入頁碼到單元格，頁眉或頁腳中。

在一個工作表的頁眉/頁腳中插入頁碼

在多個工作表的頁眉/頁腳中插入頁碼

用VBA代碼將頁碼插入單元格

在Excel中一次刪除所有頁碼

在一個工作表的頁眉/頁腳中插入頁碼

通常，我們可以使用來快速將頁碼插入頁眉或頁腳 頁眉頁腳 功能，請執行以下操作：

1。 轉到要在頁眉或頁腳中插入頁碼的工作表。

2。 然后點擊 插頁 > 頁眉頁腳，您的工作表將在 頁面布局 查看，查看截圖：

3。 單擊要在其中插入頁碼的頁眉或頁腳，然后單擊 設計 與 頁眉和頁腳工具 顯示在功能區中，然后單擊 設計 > 頁碼，請參見屏幕截圖：

4。 您會看到占位符 ＆[頁] 出現在所選部分中，然后單擊頁眉或頁腳區域之外的任何位置以顯示頁碼。 看截圖：

5。 現在，您可以通過以下方式重置為普通視圖： 查看 > 正常，并且在打印此工作表時，您將看到頁碼已插入到所選的頁眉或頁腳中。

備注：如果要以1之15、2之15格式顯示頁碼，則只需直接輸入 ＆[頁面]中的＆[頁面] 進入頁眉或頁腳字段框，請參見屏幕截圖：

在多個工作表的頁眉/頁腳中插入頁碼

上面的方法可以幫助您將頁碼插入一個工作表中，如果您要將頁碼插入工作簿的所有工作表中以使所有頁面都按順序編號，請執行以下操作：

1. 選擇所有工作表標簽，然后轉到 頁面布局 選項卡，然后單擊 對話框啟動器按鈕 中的圖標 頁面設置 組，請參見屏幕截圖：

2。 在 頁面設置 對話框，請單擊 頁眉頁腳 標簽，然后單擊 自定義標題 or 自定義頁腳 要設置所需的頁眉或頁腳，請參見屏幕截圖：

3. 而在 標題 or 頁腳 對話框中，請在頁面的內部單擊以定義插入頁碼的位置 左側部分：, 中心部分：或 右側部分： 您需要的框，然后單擊 插入頁碼 圖標和占位符 ＆[頁] 出現。 看截圖：

請注意： 輸入這個 ＆[頁面]中的＆[頁面] 如果您希望將頁碼顯示為1中的45、2中的45…，則將其添加到頁眉或頁腳字段框中

4. 然后點擊 OK > OK 若要關閉對話框，當您打印此工作簿時，在打印預覽中，您可以看到所有頁碼均按順序插入頁眉或頁腳。

用VBA代碼將頁碼插入單元格

將頁碼插入頁眉或頁腳很容易，但是，如果您需要將頁碼插入工作表單元格，則沒有直接的方法。 以下VBA代碼可以幫助您解決此問題。

1。 單擊要在其中顯示該單元的頁碼的單元格。

2。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

3。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：將當前頁碼插入單元格：

Sub pagenumber()updateby Extendoffice 20160506Dim xVPC As IntegerDim xHPC As IntegerDim xVPB As VPageBreakDim xHPB As HPageBreakDim xNumPage As IntegerxHPC = 1xVPC = 1If ActiveSheet.PageSetup.Order = xlDownThenOver ThenxHPC = ActiveSheet.HPageBreaks.Count + 1ElsexVPC = ActiveSheet.VPageBreaks.Count + 1End IfxNumPage = 1For Each xVPB In ActiveSheet.VPageBreaksIf xVPB.Location.Column > ActiveCell.Column Then Exit ForxNumPage = xNumPage + xHPCNextFor Each xHPB In ActiveSheet.HPageBreaksIf xHPB.Location.Row > ActiveCell.Row Then Exit ForxNumPage = xNumPage + xVPCNextActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.document(50)")End SubCopy

4。 然后按 F5 鍵以運行此代碼，并且該單元格的頁碼顯示在所選單元格中，請參見屏幕截圖：

在Excel中一次刪除所有頁碼

要刪除所有頁碼，可以應用以下步驟：

1。 選擇所有工作表標簽，然后轉到 頁面布局 功能區上的標簽，然后單擊 對話框啟動器按鈕 中的圖標 頁面設置 組，請參見屏幕截圖：

2。 在 頁面設置 對話框，單擊 頁眉頁腳 標簽，然后選擇 （無） 來自 標題 or 頁腳 下拉列表，請參見屏幕截圖：

3. 然后點擊 OK 按鈕，立即將所有頁碼從工作簿中刪除。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel