在单元格中插入VLOOKUP公式

时间:2013-12-26 02:53:44

标签: excel vba excel-vba

我正在尝试在单元格中插入VLOOKUP公式。我甚至都没有尝试替换参数。我使用这段代码:

myCell.Offset(0, 4).Value = "=VLOOKUP(A2;AnotherWorksheet!$A$1:$B$231;2;FALSE)"

我收到一个错误:1004

如果我将精确的公式粘贴到单元格中,则会识别并接受公式... 任何提示?谢谢!

2 个答案:

答案 0 :(得分:3)

首先,在分隔参数时使用,而不是;。其次,您正在寻找.Formula属性,而不是.Value.FormulaR1C1可能会有效,但为了准确起见,只需为A1使用VLOOKUP式样式编写。见下文。

<强>代码:

Sub Voom()
    Range("A1").FormulaR1C1 = "=VLOOKUP(A2,""AnotherWorksheet!$A$1:$B$231"",2,FALSE)"
End Sub

<强>结果:

enter image description here

它显示#N/A,因为当然,我没有可用的数据。 :)

要获得确切的代码,请使用:

myCell.Offset(0, 4).Formula = "=VLOOKUP(A2,""AnotherWorksheet!$A$1:$B$231"",2,FALSE)"

希望这有帮助。

答案 1 :(得分:2)

您需要使用Formula属性。

例如:

myCell.Offset(0, 4).Formula = "=VLOOKUP(A2,""AnotherWorksheet!$A$1:$B$231"",2,FALSE)"

从MSDN,Formula propertyFormulaR1C1 property文档。