Измените один и тот же текст в формулах в несколько столбцов с текстом в другом столбце, но в одной строке, и повторите это для нескольких строк

Question

У меня есть формулы в нескольких столбцах от столбца ATE до столбца AVG

И эти же формулы находятся в строках с 2165 по 2700

Все формулы имеют следующий текст: ANG

Теперь для каждой строки в указанном выше диапазоне - я хотел бы заменить ANG другим текстом, который находится в той же строке в столбце AVH

Например, ANG в строке 2165 в столбцах ATE to AVG (где бы то ни былоЭто формула с ANG) будет заменен текстом из столбца AVH в той же строке 2165 -> этот текст, например, ABC

Затем ANG в строке 2166 в столбцах ATE-AVG (где есть формула с ANG)будет заменен текстом из столбца AVH в той же строке 2166 -> этот текст, например, DEF

и так далее, пока то же самое не будет сделано для последней строки, то есть строки 2700

Я нашел много кодов (например, ниже), которые заменяют определенное значение другим указанным значением. Однако я хотел бы указать или вручную выбрать диапазон, а затем указать только текст ANG, а затем указать столбец, в котором код VBA будет искать текст замены, а не указывать фактический текст замены для каждой строки в коде

Sub TEST()
Dim c As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Sheets(“Version 3”).Range(ATE2165,AVG2700).SpecialCells(xlFormulas)
   c.Formula = Replace(c.Formula, “ANG, ****so here I’d like the 
     code to find ANG in above range and replace with 3 letters 
     in Column AVH for that same row and continue same for all rows in above range***)
Next c
Application.ScreenUpdating = True
End Sub

Answer 1

Примерно так должно работать:

Sub TEST()
    Dim c As Range
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each c In Sheets("Version 3").Range("ATE2165:AVG2700").SpecialCells(xlFormulas)
        c.Formula = Replace(c.Formula, "ANG", c.Parent.Cells(c.Row, "AVH").Value)
    Next c
    Application.ScreenUpdating = True
End Sub