Автоматическая замена части формулы в ячейке Excel - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток ! Вот столкнулся с такой пробелмой, ищу помощи.. На листе Excel 2003 имеет несколько тысяч формул типа
итд. Нужно через автозамену (заменить все) заменить последнюю цифру во всех формулах, которые заканчиваются на 10 - в даном примере на 14 например, однако через автозамену это сделать не получается, так как $105, $109 также меняется на $145, $149, так как присутствует $10. Как сделать, чтобы замена не происходила в тех числах, которые состоят «визуально» в т.ч. и из заменяемого числа. Благодарю и низко кланяюсь..

Решение задачи: «Автоматическая замена части формулы в ячейке Excel»

textual
Листинг программы
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "10$"
For Each c In Cells.SpecialCells(xlCellTypeFormulas)
    c.Formula = objRegExp.Replace(c.Formula, "14")
Next
Set objRegExp = Nothing

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


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

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

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