Автоматическая замена части формулы в ячейке 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