Gerry的工作簿包含22个工作表。每个工作表约有20条评论。一些评论提到了公司部门。

他想进行大量搜索并替换注释以找到每个引用（例如，“ ABC部门”），并用其他内容替换（例如，“ XYZ附属公司”）。

如果不使用宏，则无法执行此操作。 Excel中常规的“查找和替换”功能不允许您在注释中查找文本，但可以使用宏命令。以下是执行替换的简单宏：

Sub ReplaceComments()

Dim cmt As Comment     Dim wks As Worksheet     Dim sFind As String     Dim sReplace As String     Dim sCmt As String

sFind = "ABC Division"

sReplace = "XYZ subidiary"



For Each wks In ActiveWorkbook.Worksheets         For Each cmt In wks.Comments             sCmt = cmt.Text             If InStr(sCmt, sFind) <> 0 Then                 sCmt = Application.WorksheetFunction. _                   Substitute(sCmt, sFind, sReplace)

cmt.Text Text:=sCmt             End If         Next     Next     Set wks = Nothing     Set cmt = Nothing End Sub

这里的关键行是那些设置sFind和sReplace变量的行。

您应该设置这些参数以分别反映您要搜索的内容和您想要替换的内容。宏逐步浏览当前工作簿的每个工作表中的每个注释，并在它们所在的任何位置进行更改。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（11149）适用于Microsoft Excel 2007、2010和2013。您可以在以下版本的Excel的较旧菜单界面中找到该技巧的版本：

查找和替换注释中的文本。