vlookup vba代碼自動填充不起作用

Question

Vlookup代碼填充相同的值。 如何獲得正確的價值觀

來源是

ADSU01A 15.14166667
ADSU01B 13.41944444
ADSU01C 12.21111111
ADSU01D 8.64

Vlookup值顯示

ADSU01A 15.14166667
ADSU01B 15.14166667
ADSU01C 15.14166667
ADSU01D 15.14166667

使用的代碼是：

lastrow = Sheet1.Range("B" & Rows.Count).End(xlUp).row
Set Mytable = Range("A:G")

For i = 2 To lastrow
    Cells(i, 12) = Application.WorksheetFunction.VLookup(Cells(i, 1), _
                   Range("Mytable"), 3, False)
Next i

Answer 1

下面的代碼對我在圖像中的布局效果很好。

Sub vlookupadd()
Dim WB As Workbook
Dim ws As Worksheet

Set WB = ActiveWorkbook
Set ws = WB.ActiveSheet


lastrow = ws.Range("B" & Rows.Count).End(xlUp).Row
Set mytable = ws.Range("A:G")

For i = 2 To lastrow
    ws.Cells(i, 12) = Application.WorksheetFunction.VLookup(ws.Cells(i, 11), mytable, 2, False)
Next i

End Sub