在单元格中插入VLOOKUP公式

Question

I am trying to insert a VLOOKUP formula in a cell. I am not even trying to substitute parameters yet. I use this code:

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

And I am receiving an error: 1004

If I paste that exact formula in a cell, then the formula is recognized and accepted... Any hint? thanks!

Answer 1

First, use , and not ; when separating the arguments. Second, you're looking for the .Formula property, not .Value . .FormulaR1C1 may work, but for exactness, just use A1 -style formula writing for your VLOOKUP . See below.

Code:

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

Result:

It shows #N/A because, of course, I have no data available. :)

For your exact code, just use:

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

Hope this helps.

Answer 2

You need to use the Formula property.

For example:

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

From MSDN, the Formula property and the FormulaR1C1 property documentation.