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

在Microsoft Excel中，使用原生的Excel功能可以輕鬆將文件路徑、文件名稱、當前日期或其他內建詳細信息插入到頁眉或頁腳中。然而，有時候您可能需要將某個特定單元格的實際內容作為頁眉或頁腳。這個功能並未直接由Excel的標準界面提供，因此問題來了：如何在工作表的頁眉或頁腳中插入單元格的值呢？許多用戶在準備報告、表格或數據導出時會遇到這個需求，例如客戶名稱或自訂日期等動態信息應該反映在打印的頁眉或頁腳中，這樣每次打印都可以包含工作表本身的最新上下文。以下解決方案滿足了這一需求，展示了VBA和第三方工具的方法，並討論何時適合採用每種方法。

使用VBA代碼將單元格值插入工作表的頁眉或頁腳

使用VBA代碼將單元格值插入所有工作表的頁眉或頁腳

使用Kutools for Excel將文件信息插入頁眉/頁腳

手動複製單元格內容到頁眉或頁腳對話框

使用VBA代碼將單元格值插入工作表的頁眉或頁腳

如果您希望在當前工作表的頁眉或頁腳中顯示特定單元格的內容，這無法通過Excel的標準頁眉/頁腳界面實現。但是，您可以通過簡單的VBA宏達成此目的。

首先，在執行任何VBA代碼之前，請確保已保存您的工作簿，因為宏會修改對象且無法撤銷。另外，請確認您的Excel設置允許宏運行。

1. 啟用要放置單元格值的工作表。按下 ALT + F11 打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模塊，並將以下代碼粘貼到新的模塊窗口中。

VBA代碼：將指定單元格值插入工作表的頁眉

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3按下 F5 （或點擊運行按鈕）以執行該宏。此時會彈出一個對話框，提示您選擇要將其值用於頁眉的單元格。

4選擇單元格後並點擊 確定，選定單元格的值將被插入到活動工作表的左頁眉。要查看頁眉，請前往 文件 > 打印 （或使用 頁面布局 視圖）。請參見下面的範例：

注意：

• 如果要在頁腳而不是頁眉中顯示單元格的內容，請使用以下代碼。操作步驟相同——只需將此代碼粘貼到模塊中並運行即可。

VBA代碼：將指定單元格值插入工作表的頁腳

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

• 若要更改位置，請根據需要將代碼中的 LeftHeader 或 LeftFooter 替換為 CenterHeader、RightHeader、CenterFooter 或 RightFooter。例如，要將值插入中間頁眉，請將 LeftHeader 改為 CenterHeader。
• 在運行腳本之前，請務必確保單元格引用有效。如果嘗試引用空白單元格，則頁眉/頁腳將為空。
• 運行宏後，如果您修改了源單元格，頁眉/頁腳不會自動更新；您需要重新運行宏來更新顯示的信息。
• 當您希望自動化從單元格到頁眉的操作而不需要頻繁更新時，或者在處理每個打印件都具有動態內容的模板時，推薦使用這種VBA方法。
• 如果遇到“宏被禁用”的警告，請確保已在 文件 > 選項 > 信任中心 中啟用了宏設置。

使用VBA代碼將單元格值插入所有工作表的頁眉或頁腳

當您需要將特定單元格的值作為頁眉或頁腳應用於工作簿中的所有工作表時，逐個運行前面提到的代碼將非常耗時。在這種情況下，您可以使用另一個VBA宏，該宏設計用於一次性將所選單元格的內容插入到工作簿中所有工作表的頁眉或頁腳中。這在分發應具有整體一致的頁眉/頁腳信息的報告時很常見。

1. 打開您要應用更改的工作簿，然後按下 ALT + F11 啟動 Visual Basic for Applications 窗口。

2. 在 VBA 編輯器中，點擊 插入 > 模塊，然後將以下宏複製並粘貼到模塊窗口中。

VBA代碼：將指定單元格值插入所有工作表的頁腳

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. 按下 F5 運行此宏。此時會彈出一個對話框，讓您選擇目標單元格，其值應出現在每個工作表的頁腳中。

4選擇單元格後並點擊 確定該單元格的值將被插入到工作簿中每個工作表的左頁腳中。您可通過導航至 文件 > 打印.

注意：

• 若要在所有工作表的頁眉中使用單元格值，請改用以下代碼。輸入和執行代碼的過程是相同的：

VBA代碼：將指定單元格值插入所有工作表的頁眉

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

• 若要將值插入頁眉/頁腳的右側或中間位置，只需將代碼中的 LeftHeader/LeftFooter 替換為 CenterHeader/CenterFooter 或 RightHeader/RightFooter 即可。
• 請注意，使用VBA宏所做的更改不適用於撤銷操作。事先保存您的文檔，以防結果意外導致數據丟失。
• 這種方法最適合所有工作表共享共同頁眉/頁腳要求的工作簿。當工作表需要不同的內容時，考慮分別在每個工作表上運行單張工作表宏。
• 如果遇到頁眉/頁腳未按預期更新的情況，請確保您沒有啟用受保護的工作表或工作簿保護。

使用Kutools for Excel將文件信息插入頁眉/頁腳

如果您想快速且靈活地將與文件相關的信息（如工作表名稱、工作簿名稱或文件路徑）插入頁眉或頁腳，Kutools for Excel 提供了一個專用工具，稱為 插入工作簿信息。這個工具特別適合偏好無編碼解決方案、需要批量處理或希望插入多個內建文檔屬性而無需手動輸入或出錯風險的用戶。Kutools 使那些不希望與VBA互動或經常需要根據工作簿元數據更新頁眉/頁腳的用戶能夠輕鬆完成此過程。

免費安裝 Kutools for Excel 後，按照以下步驟操作：

1. 前往 Kutools Plus 標籤，然後選擇 工作簿 > 插入工作簿信息.

2. 在 插入工作簿信息 對話框中，選擇要插入的具體信息（例如，工作簿路徑、文件名稱、工作表名稱等）在信息部分下。然後，通過勾選頁眉或頁腳來指定是否要將其插入頁眉或頁腳。

提示： 您可以使用位置選項選擇頁眉或頁腳內的位置——居中、靠左或靠右。這對於結構化佈局很有幫助，例如將文件路徑放在左邊，工作表名稱放在中間。

3. 點擊 確定 以應用您的設置。要查看結果，請前往 檢視 > 頁面布局 或使用 文件 > 打印預覽.

使用 插入工作簿信息 功能，您還可以直接將這些信息插入單元格或一系列單元格中——這樣就可以在公式、顯示或進一步自動化任務中使用這些詳細信息。點擊這裡了解更多關於此工具的信息。

這種方法對於那些希望在不與宏或公式互動的情況下輕鬆訪問文檔屬性的用戶來說尤其有用。相比手動編輯，Kutools確保一致性並節省大量時間，特別是對於那些需要定期更新文檔參考的用戶。

如果頁眉或頁腳中的信息似乎沒有自動更新，請檢查工作簿是否設置為手動計算，因為一些頁眉/頁腳需要刷新文檔才能顯示最新的數據。

手動將單元格內容複製到頁眉或頁腳對話框

如果您只需要偶爾更新頁眉或頁腳中的單元格內容，並且希望避免使用VBA和外掛程式，您可以複製單元格值並手動粘貼到頁眉/頁腳對話框中。在頁面布局視圖中雙擊頁眉/頁腳部分，然後使用 Ctrl+V 粘貼單元格值。缺點是這是手動操作——每次更改時都需要更新值。

當使用手動或打印標題方法時，請記住它們對於「真實」頁眉/頁腳放置來說較不動態，並且每次基礎信息更改時都需要操作。另一方面，VBA宏和像Kutools這樣的工具提供了簡化、可重複的工作流程，特別適合大型工作簿或自動化報告生成。如果遇到VBA的意外行為或錯誤，始終檢查您的宏安全設置並檢查是否有鎖定或受保護的工作表。在使用第三方外掛程式之前，請確認它們來自信譽良好的來源並且與您的Excel版本兼容。在處理敏感或關鍵文件時，最好在運行宏之前保存備份。

演示：將工作簿信息插入單元格/頁眉/頁腳

相關文章：

如何在Excel中將文件名或路徑插入單元格/頁眉或頁腳？

如何在Excel中插入和刪除頁眉、頁腳和頁眉圖片？