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

填充相同的值的查找代碼。如何獲得正確的價值觀vlookup vba代碼自動填寫不起作用

來源是

ADSU01A 15.14166667 
ADSU01B 13.41944444 
ADSU01C 12.21111111 
ADSU01D 8.64

顯示

ADSU01A 15.14166667 
ADSU01B 15.14166667 
ADSU01C 15.14166667 
ADSU01D 15.14166667

代碼

VLOOKUP值使用的是：

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

來源

2015-06-09 Abhas Tiwari

，除非你想提升格式或添加任何有用的信息，請不要修改編輯。 –

我可以看到源數據的截圖嗎？ –

門戶網站不讓我發佈圖片 –

下面的代碼的工作對我罰款與佈局圖片。

enter image description here

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

來源

2015-06-09 10:30:59 Dubison

感謝您的時間 –

當我改變建議，（我，1）替換（我，11），我得到錯誤「無法獲得工作表功能類的vlookup屬性」，試圖調試 –

嗨，Abhas，你能請看看這個話題，他們正在討論相同的條件，提到錯誤可能是因爲你正在查找的數據不在你的列表中。[LINK]（http://stackoverflow.com/questions/19280477/無法對獲得最VLOOKUP-財產的最worksheetfunction類錯誤） – Dubison

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

回答

相關問題