Поиск и замена части формулы в ячейках

[mixaxa]

Здравствуйте, мне нужна ваша помощь, на форуме такой темы не нашел к сожалению, но если я проморгал - прошу направить. Как можно средствами vba изменить формулу в ячейке? Нужно сделать поиск по всем ячейкам, в них формулы вот такие ='W0920'!D25. Хочу заменить W0920 на W0919. Реализовал поиск по ячейкам но он видит только значения, а не саму формулу. Заранее благодарен.

[SAS888]

Можно так:

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    For Each x In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        x.Replace "W0920", "W0919"
    Next
End Sub

[alebed]

Могу предложить такой вариант
"Переганяем" формулы в текст
Прим: Ячейки колонки B должны быть в текстовом формате, в колонке А формулы
к примеру так:
For i = 1 To 3
Range("B" & Trim(Str(i))).Value = Range("A" & Trim(Str(i))).Formula
Next i
Потом меняем в ячейках колонки В текст в формулах на какой надо
Возвращаем результаты в А
For t = 1 To 3
Range("A" & Trim(Str(i))).Formula = Range("В" & Trim(Str(i))).Value
Next t

[EugeneS]

в ячейке А4 формула: =СУММ(A1:A3)

Sub ChangeFormula()
If [a4].HasFormula Then [a4] = Replace([a4].Formula, "A3", "A2")
End Sub

Результат: в ячейке А4 формула: =СУММ(A1:A2)

[mixaxa]

Работает!=) Спасибо Вам! Получился вот такой вот код:

Set sh = GetObject("D:\Weekly platform review.xls")
Dim c As Range
For Each c In sh.Worksheets("W10" & Mid(weak, 2, 2)).Range("A1:AF86").SpecialCells(x lCellTypeFormulas)
c.Replace What:="W0919", Replacement:="W09" & CStr(iweak),LookAt:=xlPart
Next
Application.ScreenUpdating = True
End Sub