Question

我在VBA中使用VlookUp，但它只适用于一个单元格。

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

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

Answer 1

请改为尝试：

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

如何将VLOOKUP放入单元格并粘贴？

1 个答案: