跳到主要內容

如何在Excel中列出對新工作表或工作簿的所有註釋?

作者:技術支持 最後修改時間:2014-05-08

如果您的工作簿中包含過多註釋,並且您想將所有註釋列出到新工作表或工作簿中以查看所有註釋,您該怎麼辦? 以下方法可以幫助您快速將工作表/工作簿的所有註釋列出到新工作表或Excel中的工作簿。

使用VBA代碼將所有評論列出到新工作表中

使用Kutools for Excel將所有評論列出到新工作表或工作簿中


箭頭藍色右氣泡 使用VBA代碼將所有評論列出到新工作表中

以下VBA代碼將在當前工作簿中列出對新工作表的所有註釋。 在新工作表中,它將在列表中列出整個工作簿的所有註釋,以及工作表名稱,單元格地址,註釋內容和單元格名稱。 請按以下方式使用此方法:

1. 點擊 開發者 > Visual Basic中,它顯示 適用於應用程序的Microsoft Visual Basic 窗口。 然後點擊 插入 > 模塊,然後在模塊中輸入以下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。 然後點擊 文檔列表評論 1 按鈕運行代碼,您將獲得一個新的工作表,其中包含當前工作簿中的所有註釋。 看截圖:

文檔列表評論 2


箭頭藍色右氣泡 一鍵列出所有評論到新工作表或工作簿

隨著 創建評論列表 of Excel的Kutools,您可以快速將所有註釋列出到新工作表或新工作簿中。

Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即獲取.

1。 如果您已經安裝了Kutools for Excel,請單擊 庫工具 > 更多 > 創建評論列表,請參見屏幕截圖:

文檔列表評論-3-3

2。 在 創建評論列表 對話框:

  • 選擇要列出評論的範圍,可以選擇 活動表 or 所有工作表.
  • 然後指定要放置評論列表的位置,可以在新工作簿或新工作表中列出評論,請參見屏幕截圖:

文檔列表評論-4-4

3。 然後點擊 創建按鈕。 將添加一個新工作表,以列出所有活動工作表註釋及其屬性,例如工作表名稱,單元格引用,行和列。 看截圖:

有關更多詳細信息 創建評論列表, 請拜訪 創建評論列表功能描述.


相關文章:

最佳辦公生產力工具

🤖 Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述


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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je senatorrpwalter@hotmail.com. Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je senatorrpwalter@hotmail.com. Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations