Оптимизация кода по замене текста - VBA
Формулировка задачи:
Подскажите пожалуйста, как можно оптимизировать нижеуказанный код?
Решение задачи: «Оптимизация кода по замене текста»
textual
Листинг программы
Sub www() Const FND = "найти1|найти2|найтиХ" Const RPL = "заменить1|заменить2|заменитьX" Dim iCell As Range, i&, aFnd, aRpl aFnd = Split(FND, "|"): aRpl = Split(RPL, "|") With Worksheets(1).Range("B:B") For i = 0 To UBound(aFnd) Set iCell = .Find(aFnd(i), , xlValues, xlPart) Do Until iCell Is Nothing iCell = aRpl(i) Set iCell = .FindNext Loop Next End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д