VBA - 값을 주어진 셀에 어떻게 인쇄하나요?

Question

저는 시트의 첫 번째 열의 입력을 사용하여 39 번째 셀에 yahoo 함수의 값만 인쇄하려고합니다. 이 함수는 단일 문자열을 반환합니다. Evaluate, .Value 및 .Formula는 나를 위해 운동하지 않습니다. 여러 개의 오류 및 구문 오류가 발생합니다. 모든 입력은 매우 감사하겠습니다! 나는 VBA에서 초보자입니다.

Sub Button2_Click() 
    Dim LastRow As Long 

    If Range("A5") <> vbNullString And Range("A6") <> vbNullString Then 
     LastRow = Range("A5").End(xlDown).Row 
    End If 

    With Range("AN5:AN" & LastRow) 
     Dim texttmp As String: textmp = Evaluate("yahoo(RC[-39])") 


     '.FormulaR1C1 = "=yahoo(RC[-39])" 
     '.FormulaR1C1 = "yahoo(MID(RC[-39],1,LEN(RC[-39]))" 
     '.Value2 = "=yahoo(RC[-39])" 
     '.Value = "yahoo" 
     '.Value2 = Evaluate("yahoo(RC[-39])") 

    End With 
End Sub 

Answer 1

한 번에 전체 범위를 사용하고 수식을 채운 다음 계산 된 값으로 덮어 씁니다.

With Range("AN5:AN" & LastRow) 
    .FormulaR1C1= "=yahoo(RC[-39])" 
    .Value = .Value 
End With