수식 VBA의 숫자 참조 바꾸기?

Question

For i = 1 To 5 
    changeto = CStr(Sheet15.Cells(1, i).Formula) 
    newindustry = getfirstword(Worksheets("Industry Insert Template").Range("C1")) 
    'grab the index position of the comma and exclamation mark 
    intchangeto = InStr(changeto, ",") 
    finalchangeto = InStr(changeto, "!") 
    'extract the worksheet substring 
    finalindustry = Mid(changeto, intchangeto + 1, finalchangeto - intchangeto - 1) 

    If finalindustry <> "'Multiples & EPS'" And finalindustry <> "Technicals" Then 
     finalformula = Replace(changeto, finalindustry, newindustry) 
     Cells(1, i).Formula = finalformula 
    End If 
Next 

현재 워크 시트 이름을 조정하는 것이 내 매크로입니다.
수치 참조 만 조정하고 싶습니다. 예를 들어

:

I가 정확한 열을 반영 VLOOKUP의 셀 (41)을 변경할 수 있도록 할

=VLOOKUP($B1,Industrials!$CA$41:$GG$41,C$8) 

.
어떻게 모든 세포를 통과하고 이것을 반영하는 공식을 바꿀까요?

Answer 1

사용 교체 :

이

예 :

Cells (1, i).Formula = Replace(Cells (1, i).Formula, oldRow, NewRow) 

만약 i의 값이 행 번호에 관련되어, 당신의 등