Оптимизация кода по замене текста - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы