Note: The other languages of the website are Google-translated. Back to English
登入  \/ 
x
or
x
註冊  \/ 
x

or

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

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

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

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

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

在Excel中一次刪除所有頁碼


箭頭藍色右氣泡 在一個工作表的頁眉/頁腳中插入頁碼

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

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

2。 然後點擊 插入 > 頁眉頁腳,您的工作表將在 頁面佈局 查看,查看截圖:

doc插入頁碼1

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

doc插入頁碼2

4。 您會看到佔位符 &[頁] 出現在所選部分中,然後單擊頁眉或頁腳區域之外的任何位置以顯示頁碼。 看截圖:

doc插入頁碼3

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

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

doc插入頁碼4


箭頭藍色右氣泡 在多個工作表的頁眉/頁腳中插入頁碼

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

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

doc插入頁碼5

2。 在 頁面設置 對話框,請單擊 頁眉頁腳 選項卡,然後單擊 自定義標題 or 自定義頁腳 要設置所需的頁眉或頁腳,請參見屏幕截圖:

doc插入頁碼6

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

doc插入頁碼7

備註: 輸入這個 &[頁面]中的&[頁面] 如果您希望頁面編號顯示為1的45、2的45…,則將其添加到頁眉或頁腳字段框中

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


箭頭藍色右氣泡 用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 鍵以運行此代碼,並且該單元格的頁碼顯示在所選單元格中,請參見屏幕截圖:

doc插入頁碼8


箭頭藍色右氣泡 在Excel中一次刪除所有頁碼

要刪除所有頁碼,可以應用以下步驟:

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

doc插入頁碼9

2。 在 頁面設置 對話框,單擊 頁眉頁腳 標籤,然後選擇 (無) 來自 or 頁腳 下拉列表,請參見屏幕截圖:

doc插入頁碼10

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


最佳辦公效率工具

Kutools for Excel 解決了您的大部分問題,並將您的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 300 多項強大功能。 支持Office / Excel 2007-2019和365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能30天免費試用。 60天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    onyx.lai@gmail.com · 3 years ago
    May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
  • To post as a guest, your comment is unpublished.
    Onyx · 3 years ago
    May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
  • To post as a guest, your comment is unpublished.
    wep.edelweiss@gmail.com · 3 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    madeleiniscg@gmail.com · 3 years ago
    Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
  • To post as a guest, your comment is unpublished.
    Jim · 4 years ago
    I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
  • To post as a guest, your comment is unpublished.
    Antoinette Anderson · 5 years ago
    Hello

    I used the Insert page number into cell with VBA code above and it works a charm.
    My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across).
    I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35.
    Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :(

    Assistance would be hugely appreciated!

    Antoinette