Excelで提供される非常に便利なツールの1つは、セルに格納されている情報を見つけて変更できる検索と置換です。ただし、検索と置換が機能しない場所の1つは、ワークシートのヘッダーまたはフッターに格納されている情報です。

ヘッダーまたはフッター内の情報の検索と置換を処理する唯一の方法は、マクロを使用することです。ヘッダーとフッターのさまざまな部分に格納されているものにアクセスし、見つけたいものを確認してから、新しいテキストに置き換えるのは、かなり簡単な作業です。次のマクロに例を示します。

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

マクロがヘッダーの3つの部分すべてとフッターの3つの部分すべてでどのように置換を行うかに注意してください。

独自のマクロを使用したくない場合、またはよりフル機能のExcelの検索と置換が必要な場合は、ExcelMVPのJanKarelPieterseによる無料のFlexFindアドインを検討してください。

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

これにより、定期的に検索が追加されますが、ヘッダーやフッターなど、他の多くの領域でも検索されます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3388）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkヘッダーで検索して置換。