如何在 Excel 中將目前工作簿中的所有註釋列印到新的工作表或工作簿中？

Author Tech Support Last modified 2025-08-23

如果您有一個包含太多註釋的工作簿，並且您希望將所有註釋列印到一個新的工作表或工作簿中以進行審閱，該怎麼辦呢？以下方法可以幫助您快速將工作表/工作簿中的所有註釋列印到 Excel 中的新工作表或工作簿中。

使用 VBA 程式碼將當前工作簿中的所有註釋列印到新工作表

使用 Kutools for Excel 將當前工作簿中的所有註釋列印到新工作表或工作簿

使用 VBA 程式碼將當前工作簿中的所有註釋列印到新工作表

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

以下 VBA 程式碼會將當前工作簿中的所有註釋列印到新工作表。在新工作表中，它將列出整個工作簿的所有註釋，並附有工作表名稱、單元格地址、註釋內容和單元格名稱。請按照以下方式使用此方法：

1. 點擊「開發工具」>「Visual Basic」，顯示「Microsoft Visual Basic for Applications」窗口。然後點擊「插入」>「模組」，並在模組中輸入以下 VBA 程式碼。

VBA：在新工作表中列出所有註釋。

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. 然後點擊按鈕來運行程式碼，您將獲得一個包含當前工作簿中所有註釋的新工作表。請參見截圖：

all comments are displayed in whole workbook

使用 Kutools for Excel 將當前工作簿中的所有註釋列印到新工作表或工作簿

通過「Kutools for Excel」的「創建註釋列表」功能，您可以快速將所有註釋列印到新工作表或新工作簿中。

Kutools for Excel：擁有超過 300 個實用的 Excel 增益功能，免費試用 30 天無限制。立即獲取。

1. 如果您已經安裝了 Kutools for Excel，點擊「Kutools」>「更多」>「創建註釋列表」。

2. 在「創建註釋列表」對話框中：

選擇要列出註釋的範圍，您可以選擇「當前工作表」或「全部工作表」。
然後指定放置註釋列表的位置，您可以將註釋列表放在新工作簿或新工作表中，請參見截圖：

3. 然後點擊「創建」按鈕。將添加一個新工作表，列出所有活動工作表註釋及其屬性，例如工作表名稱、單元格引用、行和列。請參見截圖：

create comment list with kutools to get the result

有關「創建註釋列表」的更多詳細信息，請訪問創建註釋列表功能描述。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多