如何在Excel中將註釋轉換為單元格內容？

假設我在工作表中有一個充滿註釋的範圍單元格，現在，我想將所有註釋都轉換為單元格內容，以便可以整齊而完整地打印它們。 有什麼好的方法可以解決這個任務？

使用用戶定義的功能將註釋轉換為單元格內容

使用VBA代碼將註釋轉換為單元格內容

使用Kutools for Excel將註釋轉換為單元格內容

使用用戶定義的功能將註釋轉換為單元格內容

通過使用此方法，您需要首先創建一個定義的函數，然後應用定義的公式將註釋轉換為單元格內容。 您可以按照以下步驟完成它：

1。點擊 開發者 > Visual Basic中，一個新的 適用於應用程序的Microsoft Visual Basic 將顯示一個窗口，單擊 插入 > 模塊，然後將以下函數輸入到模塊中：

函數GetComments（pRng作為範圍）作為字符串'Updateby20140509如果pRng.Comment不存在，則GetComments = pRng.Comment.Text如果結束，則結束函數

2.媒體推薦 按Ctrl + S 保存功能。

3然後輸入以下公式“= GetComments（A1）在任何空白單元格中，在這種情況下，我將使用單元格E1。 看截圖：

4。 按 Enter 鍵。 並選擇單元格E1，然後將填充手柄拖到要包含此公式的單元格範圍內。 並且所有註釋都轉換為單元格內容。 看截圖：

 使用VBA代碼將註釋轉換為單元格內容

如果您知道VBA代碼，則以下簡短代碼也可以幫助您將註釋轉換為單元格內容。

1。 選擇要轉換為單元格內容的範圍；

2。 點擊 開發者 > Visual Basic中，一個新的 適用於應用程序的Microsoft Visual Basic 將顯示一個窗口，單擊 插入 > 模塊，然後將以下代碼輸入到模塊中：

Sub CommentToCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Rng.NoteText
Next
End Sub

3。 然後點擊   按鈕運行代碼。 並選擇要轉換的範圍，然後單擊 OK，並且所有選定的註釋都已轉換為其相關單元格中的單元格內容。

備註：如果您不想評論，則可以將其刪除。

使用Kutools for Excel將註釋轉換為單元格內容

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

轉換評論和單元格 of Excel的Kutools 是一個方便實用的工具，可以幫助您解決有關註釋的許多問題。

安裝後 Excel的Kutools，請執行以下操作：

1。 選擇您要將註釋導入單元格中的範圍。

2。 點擊 庫工具 > 更多 > 轉換註釋和單元格。

3。 在 轉換評論和單元格 對話框中選擇 將評論轉換為單元格內容。 看截圖：

4。 然後點擊 OK。 現在，所有選定的註釋都將轉換為其原始範圍內的單元格內容。

有關更多詳細信息 轉換評論和單元格， 請拜訪 轉換註釋和單元格功能描述.

相關文章：

• 更改單元格中的所有註釋格式
• 更改所有評論的作者姓名
• 將所有評論列出到新工作表或工作簿中
• 查找和替換評論中的文字
• 在Excel中顯示或隱藏所有註釋和註釋指示符
• 將單元格內容轉換為Excel中的註釋