Vba 我如何把VLOOKUP放进一个单元格并粘贴下来？

我在VBA中使用了

VlookUp

，但它只适用于一个单元格

For Each MyCell In Selection
    MyCell = application.WorksheetFunction.VlookUp(Range("C2"), Range("A2:B50000"), 2 , 0)
Next

我想在一个单元格中设置一个

VlookUp

，然后将其滚动到所有其他单元格。但我只能将公式放在第一个单元格中，然后双击其他单元格。

请尝试以下操作：

With Selection
    .FormulaR1C1 = "=VLOOKUP(RC3,R2C1:R50000C2,2,FALSE)"
    .Value = .Value '// Comment out if you don't want to paste values.
End With

这将使用查找值行的相对引用将

VLOOKUP（）

公式输入到每个单元格中，然后有效地粘贴值以替换公式

---

如果确实需要，可以使用VBA语法：

For Each myCell In Selection
    myCell.Value = WorksheetFunction.Vlookup(Cells(myCell.Row, 3), Range("A2:B50000"), 2, False)
Next