vlookup vba代码自动填充不工作

填充相同值的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

---

下面的代码很适合我在图像中的布局

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

---

除非您希望增强格式或添加任何有用的信息，否则请不要更改编辑。我可以查看源数据的屏幕截图吗？门户不允许我发布图像将其加载到任何文件上传站点并在此处共享链接。我们中的一个人将为您上传：）您好，我成功地运行了您的代码，没有任何问题，只是做了一些小的修改。我没有使用

Range（“Mytable”）

，而是使用onlt

Mytable

，因为它已经被标识为Range，然后在

单元格（i，12）=Application.WorksheetFunction.VLookup（单元格（i，1），Range（“Mytable”），3，False）中用2代替3，因为它与我的工作表中的一样。当我按照建议进行更改时，（i，1）替换为（i，11），我得到错误“无法获取worksheetfunction类的vlookup属性”，试图调试Abhas，请看一下这个主题。他们在讨论同样的情况。需要指出的是，由于您要查找的数据不在列表中，因此可能会导致错误。