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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

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

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

このヒント（3534）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkコメント内のテキストの検索と置換。