使用宏的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 。 請參閱此了解詳情。