У Джерри есть рабочая тетрадь, содержащая 22 рабочих листа. На каждом листе около 20 комментариев. Некоторые комментарии относятся к подразделению компании.

Он хотел бы произвести массовый поиск и заменить комментарии, чтобы найти каждую ссылку (например, «ABC Division») и заменить ее чем-то другим (например, «дочерней компанией 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), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3534) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Finding_and_Replacing_Text_in_Comments [Поиск и замена текста в комментариях].