У Джерри есть рабочая тетрадь, содержащая 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.

Этот совет (11149) относится к Microsoft Excel 2007, 2010 и 2013. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

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