Автоматическая замена части формулы в ячейке 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д