Вычитание из столбца на основе имен столбцов вместо индексов столбцов

Question

У меня есть столбец с именем «Повторная выравнивание средней точки», результатом которого является дата другого столбца (с именем «Окончательная дата исполнения») минус 100 дней. В настоящее время дата «Повторная выравнивание средней точки» находится в столбце AZ, а «Окончательная дата исполнения» - в столбце BR. Эти столбцы подлежат перемещению, поэтому для меня нецелесообразно создавать макрос на основе индексов столбцов. Вместо этого я хотел бы вычесть одно из другого на основе имен столбцов. Строки заголовка находятся в строке 2, а не грести 1

Это то, что я для моего записанного макроса:

Sub Re_Align_Midpoint_Date 

    Range("AZ3").Select 
    ActiveCell.FormulaR1C1 = "=RC[18] - 100" 
    Range("AZ3").Select 
    Selection.AutoFill Destination:=Range("AZ3:AZ142"), Type:=xlFillDefault 
    Range("AZ3:AZ142").Select 
    ActiveWindow.SmallScroll Down:=-132 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 
End Sub 

Answer 1

Пока заголовки столбцов не изменится вы можете использовать ГПР, чтобы сделать это :

=HLOOKUP("Final Execution Date",$A$2:$ZZ3,ROW(A2),FALSE)-100 

Просто вставьте эту формулу в верхней части столбца «Средняя точка» и заполните ее.