使用宏的Excel中的VLookup函数范围

Question

我正在尝试制作一个宏以在Excel中执行vlookup。 我已经创建成功，代码运行正常！ 代码如下：

ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-1],LW0640!R2C8:R12163C9,2,TRUE)" Selection.AutoFill Destination:=Range("D6:D6098")

但是，我发现范围是固定范围。 其结果来自D6：D6098，源来自R2C8：R12163C9。

如果数据范围更改，它将不起作用。 我想知道如何从范围的开头到最后一行为vlookup函数设置范围。 请帮忙！

Answer 1

您可以使用“ A1”类型的表示法。 对于您的情况，您需要第8列和第9列，分别为H和I，因此您可以编写以下内容：

ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],LW0640!H:I" & MyCols & ",2,TRUE)"
Selection.AutoFill Destination:=Range("D6:D6098")

Answer 2

您可以使用此代码。

Sheets("LW0640").Select
Range("D6:D6098").Select
    ActiveWorkbook.Names.Add Name:="tablex", RefersToR1C1:= _
        "=LW0640!R6C4:R6098C4"


'Range("F28").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],tablex,2,TRUE)"

Answer 3

尝试

Sub Demo()
    Dim ws As Worksheet
    Dim LastRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")  'change Sheet1 to your data sheet
    With ws
        LastRow = .Range("H" & .Rows.Count).End(xlUp).Row
        .Range("D6:D" & LastRow).Formula = "=VLOOKUP(C6,LW0640!$H$2:$I$" & LastRow & ",2,TRUE)"
    End With
End Sub

您应该避免使用SELECT和ACTIVE 。 请参阅此了解详情。