VBA-如何将值打印到给定单元格中？

我试图将yahoo函数的值打印到第39个单元格中，输入来自工作表的第一列。该函数返回单个字符串。评估、.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

子按钮2\u单击（）
最后一排一样长
如果范围（“A5”）vbNullString和范围（“A6”）vbNullString，则
LastRow=范围（“A5”）。结束（xlDown）。行
如果结束
带范围（“AN5:AN”&LastRow）
Dim textmp 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=“雅虎”
'.Value2=评估（“雅虎（RC[-39]）”）
以
端接头

一次性使用整个范围，用公式填充，然后用计算值覆盖

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

---

如何定义

yahoo

函数？

函数yahoo（符号为字符串）作为String

这是

yahoo

真的是一个excel公式吗？？？我的意思是，你能手动将

yahoo

放入一个单元格并得到有效的结果吗？还是它是一个VBA函数？？VBA函数，但我认为它的名字很明显。对不起，太棒了。很有魅力。谢谢！