如何在Excel的註釋（備註）中查找和替換文字？

Excel 的尋找和替換功能是快速更新儲存格內內容的強大工具，但它並不直接適用於註釋——這是自 Excel 2019 之前傳統註解的新名稱。許多用戶想知道是否可以將相同的功能應用於 Excel 註釋中的文字。本指南將向您展示如何有效地在註釋中查找和替換文字，擴展您管理及完善工作表各個方面的能力。

使用 VBA 程式碼在註釋（備註）中查找和替換文字

一個方便的工具，可快速輕鬆地在註釋（備註）中查找和替換文字

使用 VBA 程式碼在註釋（備註）中查找和替換文字

在 Excel 中，您可以使用以下 VBA 程式碼來查找並替換所有註釋中的文字。例如，我將把所有註釋中的文字「2011」替換為「2012」。

1. 點擊 開發者 > Visual Basic ，隨後會顯示新的 Microsoft Visual Basic for Applications 視窗，點擊 插入 > 模組 ，然後在模組中輸入以下 VBA 程式碼：

VBA 程式碼：在 Excel 所有註釋中查找和替換文字

Sub ReplaceNotes()
'Updated by Extendoffice 2024/07/25   
    Dim cell As Range
    Dim wks As Worksheet
    Dim sFind As String
    Dim sReplace As String
    Dim sNote As String
    ' Define the text to find and replace
    sFind = "2011"
    sReplace = "2012"
    ' Loop through each worksheet in the active workbook
    For Each wks In ActiveWorkbook.Worksheets
        For Each cell In wks.Cells
            If cell.NoteText <> "" Then
                sNote = cell.NoteText
                If InStr(sNote, sFind) > 0 Then
                    sNote = Replace(sNote, sFind, sReplace)
                    cell.NoteText Text:=sNote, Start:=1, Length:=Len(cell.NoteText)
                End If
            End If
        Next cell
    Next wks
End Sub
  

2. 然後點擊 按鈕以運行程式碼，所有註釋中的「2011」將被替換為整個工作簿中的「2012」。

一個方便的工具，可快速輕鬆地在註釋（備註）中查找和替換文字

我們可以使用 Kutools for Excel 的 尋找/替換註釋文字 功能快速查找並替換所有註釋中的文字。

如果您已經安裝了 Kutools for Excel，則可以輕鬆地查找並替換 Excel 中所有註釋的文字。

1. 點擊 Kutools > 更多 > 尋找/替換註釋文字。

2. 在 尋找/替換註釋文字 對話框中：

• (1.) 選擇要應用此工具的範圍，您可以選擇 當前工作表 或 全部工作表；
• (2.) 在 尋找註釋中的文字 框中輸入要替換的文字（2011），並在 替換為 框中輸入要用於替換的特定文字（2012）。

3. 然後點擊 替換 按鈕。所有 2011 將在活動工作表的註釋中被替換為 2012。請參見截圖：

相關文章：

• 更改所有儲存格中的註釋格式
• 更改所有註釋的作者名稱
• 將所有註釋列出到新工作表或工作簿
• 在 Excel 中顯示或隱藏所有註釋和註釋標記
• 將儲存格內容轉換為 Excel 中的註釋
• 將註釋轉換為 Excel 中的儲存格內容