Excelで複数の値を一度に検索して置換するにはどうすればよいですか？

  VBAコードを使用して複数の値を一度に検索して置換する

何度も何度も値を検索して置換するのが面倒な場合は、次のVBAコードを使用して、必要なテキストで複数の値を一度に置換できます。

1. 置換したい元の値と新しい値を含む条件を作成してください。スクリーンショットをご覧ください：

2. 次に、「ALT」+「F11」キーを押して「Microsoft Visual Basic for Applications ウィンドウ」を開きます。

3. 「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード: 複数の値を一度に検索して置換する

Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

4. そして、「F5」キーを押してこのコードを実行します。表示されるプロンプトボックスで、新しい値に置き換えたいデータ範囲を指定してください。

5. 「OK」をクリックすると、別のプロンプトボックスが表示され、ステップ1で作成した基準を選択するよう促されます。スクリーンショットをご覧ください：

6. その後「OK」をクリックすると、指定されたすべての値が要求通りに新しい値に置き換えられます。

関連記事：

テキストボックス内の特定のテキストを検索して置換するにはどうすればよいですか？

Excelでチャートのタイトル内のテキストを検索して置換するにはどうすればよいですか？

Excelでコメント内のテキストを検索して置換するにはどうすればよいですか？

Excelで複数のハイパーリンクパスを一度に変更するにはどうすればよいですか？