Как найти и заменить несколько значений одновременно в 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?