воскресенье, 26 августа 2018 г.

Макрос одновременной замены нескольких значений Excel

Найти и заменить в открытых книгах или нескольких листах:
Kutools for ExcelАвтора Найти и заменить функция может помочь вам найти и заменить значения из открытых книг или конкретных рабочих листов, которые вам нужны.
док-множественный найти и заменить-6

arrow синий правый пузырь Найти И Заменить Сразу Несколько Значений Кодом 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 20140722
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, все конкретные значения были заменены новыми значениями по мере необходимости.
doc multiple find заменить 5

    Статья: https://www.extendoffice.com/ru/documents/excel/1873-excel-find-and-replace-multiple-values-at-once.html


    Цены в Duty-free Анталии

    Если думаете покупать или не покупать в дюьтик РФ, вот цены льютифри Анталии. Несколько свежих фото с ценникам. Стоимость мартини, скидка на...