VBA – 如何打印一个给定单元格的值？

我试图打印只是雅虎function的值到39单元格的input是从工作表的第一列。 该函数返回一个单一的string。 评估，.Value和.Formula不为我锻炼。 我收到多个错误和语法错误。 任何input将不胜感激！ 我是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