Excelでテキストの検索と置換を行うマクロコードを作成するにはどうすればよいですか？

通常、Excelで値を検索して置換するには、組み込みの「検索と置換」機能を使用します。実際には、マクロコードを使用してExcelで直接テキストを検索して置換することができます。この記事では、Excelでテキストの検索と置換を行うためのマクロコードを作成する方法について説明します。

Excelでテキストの検索と置換を行うマクロコードを作成する

Excelでテキストの検索と置換を行うマクロコードを作成する

以下のように操作して、Excelでテキストの検索と置換を行うマクロコードを作成してください。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、「挿入」＞「モジュール」をクリックします。次に、以下のVBAコードをコードウィンドウにコピーします。

VBAコード: Excelでテキストの検索と置換を行うマクロコードを作成する

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg =Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

3. F5キーを押してコードを実行します。

4. 最初のKutools for Excelダイアログボックスで、検索するテキストまたは値を入力し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

5. 2番目の Kutools for Excelダイアログボックスで、置換するテキストまたは値を入力し、「OK」ボタンをクリックします。

これで、指定されたすべてのテキストが希望のテキストに即座に置き換えられます。

注: このコードはアクティブなワークシートに適用されます。

関連記事：

• Excelで空白セルを特定の数値やテキストにすべて置換するにはどうすればよいですか？
• Excelでセル内のカンマを改行（Alt + Enter）に置き換えるにはどうすればよいですか？
• Excelでシートタブ名を検索して置換するにはどうすればよいですか？
• Excelでカンマ区切りリストを持つセル内で値を見つけるにはどうすればよいですか？
• Excelで2つの列リストの交点を見つけるにはどうすればよいですか？