Одним из очень полезных инструментов Excel является «Найти и заменить», который позволяет находить и изменять информацию, хранящуюся в ячейках. Однако одно место, где функция «Найти и заменить» не будет работать, — это информация, хранящаяся в верхних или нижних колонтитулах ваших листов.

Единственный способ справиться с поиском и заменой информации в верхнем или нижнем колонтитуле — использовать макрос. Это довольно тривиальная задача — получить доступ к тому, что хранится в различных частях верхнего и нижнего колонтитула, проверить их на предмет того, что вы хотите найти, а затем заменить его новым текстом. Следующий макрос представляет собой пример.

Sub FnR_HF()         Dim sWhat As String, sReplacment As String     Const csTITLE As String = "Find and Replace"



sWhat = InputBox("Replace what", csTITLE)

If Len(sWhat) = 0 Then Exit Sub     sReplacment = InputBox("With what", csTITLE)



With ActiveSheet.PageSetup         ' Substitute Header/Footer values         .LeftHeader = Application.WorksheetFunction.Substitute( _                       .LeftHeader, sWhat, sReplacment)

.CenterHeader = Application.WorksheetFunction.Substitute( _                         .CenterHeader, sWhat, sReplacment)

.RightHeader = Application.WorksheetFunction.Substitute( _                        .RightHeader, sWhat, sReplacment)

.LeftFooter = Application.WorksheetFunction.Substitute( _                       .LeftFooter, sWhat, sReplacment)

.CenterFooter = Application.WorksheetFunction.Substitute( _                         .CenterFooter, sWhat, sReplacment)

.RightFooter = Application.WorksheetFunction.Substitute( _                        .RightFooter, sWhat, sReplacment)

End With End Sub

Обратите внимание, как макрос выполняет замены во всех трех частях верхнего колонтитула и во всех трех частях нижнего колонтитула.

Если вы предпочитаете не использовать собственный макрос или хотите более полнофункциональную функцию «Найти и заменить» для Excel, вы можете рассмотреть бесплатную надстройку FlexFind от MVP Excel Ян Карел Питерс:

http://www.jkp-ads.com/officemarketplaceff-en.asp

Это регулярно добавляется в поиск, но также выполняется поиск во многих других областях, включая верхние и нижние колонтитулы.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

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

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

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

link: / excelribbon-Find_and_Replace_in_Headers [Найти и заменить в заголовках].