如何將目前工作簿中的所有註解列出至新的工作表或活頁簿？

作者技術支援修改日期2025-04-17

如果您有一個包含大量註解的活頁簿，並希望將所有註解整理到新工作表或新活頁簿中以便檢閱，該如何操作？以下方法可協助您快速將工作表或活頁簿中的所有註解匯整至全新的工作表或活頁簿。

使用 VBA 程式碼將當前工作簿中的所有註解列出至新工作表

使用 Kutools for Excel 將當前工作簿中的所有註解列出至新工作表或活頁簿

使用 VBA 程式碼將當前工作簿中的所有註解列出至新工作表

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 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. 接著按一下按鈕以執行程式碼，即可獲得一個包含目前工作簿中所有註解的新工作表。請參見螢幕截圖：

整個活頁簿中顯示所有註解

使用 Kutools for Excel 將當前工作簿中的所有註解列出至新工作表或活頁簿

透過「Kutools for Excel」的「建立批註清單」功能，您能快速將所有批註整理至新工作表或新活頁簿中。

Kutools for Excel：提供超過 300 項實用 Excel 增益集，免費試用 30 天無任何限制！立即取得。

1. 若您已安裝 Kutools for Excel，請點選「Kutools」>「更多」>「建立批註清單」。

2. 在「建立批註清單」對話框中：

選取您要列出註解的範圍，可選擇「目前工作表」或「所有工作表」。
接著指定您要放置註解清單的位置，您可以將註解列在新工作簿或新工作表中，請參見螢幕截圖：

3. 接著點擊「建立」按鈕，系統將自動新增一個工作表，完整列出目前作用中工作表的所有註解及其相關屬性，包括工作表名稱、儲存格參照、列與欄。請參閱下方螢幕截圖：

使用 Kutools 建立註解清單以取得結果

如需「創建批註列表」的詳細資訊，請參閱創建批註列表功能說明。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多