使用VLOOKUP引用VBA excel 2007中的另一個工作表

Question

我知道圍繞這個主題已經提出了很多問題和答案，但我找不到任何對我有用的東西，因為我正在引用另一張表（Lookuptable）。

下面是用excel編寫的原始VLOOKUP，這很好用：

=VLOOKUP(A1,Lookuptable!A:B, 2, FALSE)

下面是我的腳本的剝離偽代碼版本，其中提供了VBA vlookup代碼行。 我基本上都在尋找上面的VBA版本！

Sub Test()
    Dim rng As Range
    Dim result As Variant
    Dim i As Long
    Dim rng2 As Range
    Dim arg4 As Boolean
    Dim arg1 As Long, arg3 As Long

    With ActiveSheet
        Set rng = Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With

rng.Cells(i, 2) = Application.WorksheetFunction.VLookup(i, Sheets(Lookuptable).Range("A1:B1"), 2, False)

End Sub

可能值得注意的是，我以下方獲取了一個超出范圍錯誤的下標或無效的過程調用或參數錯誤。

Answer 1

嘗試這個：

Sub Test()
    Dim rng As Range
    Dim i As Long

    With ActiveSheet
        Set rng = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

        For i = 2 to rng.Rows.Count
            rng.Cells(i, 2) = Application.WorksheetFunction.VLookup(.Cells(i,1), Sheets("Lookuptable").Range("A:B"), 2, False)
        Next
    End With
End Sub