Kutools for ExcelАвтора Найти и заменить функция может помочь вам найти и заменить значения из открытых книг или конкретных рабочих листов, которые вам нужны.
 |
Найти И Заменить Сразу Несколько Значений Кодом VBA
Если вы устали от поиска и замены значений снова и снова, следующий код VBA может помочь вам сразу заменить несколько значений вашими необходимыми текстами.
2, Затем нажмите и удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений.
3. Щелчок Вставить > модуль, и вставьте следующий код в окно модуля.
Код VBA: поиск и замена сразу нескольких значений
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub MultiFindNReplace()'Update 20140722Dim Rng As RangeDim InputRng As Range, ReplaceRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)Application.ScreenUpdating = FalseFor Each Rng In ReplaceRng.Columns(1).Cells InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).ValueNextApplication.ScreenUpdating = TrueEnd Sub |
4, Затем нажмите F5 для запуска этого кода, в раскрывающемся окне подсказки укажите диапазон данных, который вы хотите заменить значениями новыми значениями.
5. Щелчок OK, и появится другое окно подсказки, чтобы напомнить вам, выберите критерии, которые вы создали на шаге 1. Смотрите скриншот:
6, Затем нажмите OK, все конкретные значения были заменены новыми значениями по мере необходимости.
Статья: https://www.extendoffice.com/ru/documents/excel/1873-excel-find-and-replace-multiple-values-at-once.html
