提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

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

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

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

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

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

在Excel中一次刪除所有頁碼


將工作表名稱/文件名稱/創建日期/修改日期...插入頁眉/頁腳/單元格中:

Kutools for Excel插入工作簿信息 實用程序,您可以根據需要快速插入表單名稱,文件名,文件路徑和名稱,創建日期,修改日期和兒子到單元格,頁眉或頁腳中。 現在就下載免費的Kutools for Excel!

doc插入頁碼11-11

Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 下載並免費試用現在!


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


通常情況下,我們可以通過使用“。”來快速地將頁碼插入頁眉或頁腳 頁眉和頁腳 功能,請按照以下步驟操作:

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天免費試用。
kte tab 201905

Office選項卡為Office提供選項卡式界面,使您的工作更輕鬆

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

Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 1 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 · 1 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 Channel · 1 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    Made Made · 1 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 · 2 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 · 3 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