Vlookup宏沒有返回所有需要的值，但是輸入的值是從

Question

中輸入的。我被困住了，我的Vlookup搞砸了，我試圖將列中的所有值更改爲文本，並將所有值更改爲常規。這是我的代碼，我可以單獨做vlookup，但我需要他們一個接一個地做，當第一個vlookup公式返回＃N/A或#NAME或#VALUE時，我需要第二個vlookup公式來完成並填充相關領域，任何建議，我已經嘗試了這麼多不同的變化。這裏是我現在的東西，但錯誤說預期列表分隔符或（如果我採用IFERROR和第二個功能所有數值的工作原理，因爲大多數品牌名稱可以由序號第4和第5位數字確定，但一些連續字母有字母到位，這是整個問題，有些甚至有一個字母和破折號，A-是一個例子，我需要能夠VLOOKUP所有這些類型，但不能取代具有準確值的字段，所以第一次查找替換所有第二進來填補出錯fiels。幫助將非常感激。

這是再現錯誤代碼。

Sub Work2() 
Dim LR As Long 
Dim row As String 
row = "W2" 
row = "W" & x 
LR = Range("W" & Rows.Count).End(xlUp).row 
Range(Columns(6), Columns(7)).Select 
For x = 0 To 2 
row = "W" & x 
Range("A2:A" & LR).Formula = "=IFERROR(VLOOKUP(VALUE(" & row & "),[gpic.xslx]Sheet1!$R:$S,2,FALSE),"=VLOOKUP(" & row & ",[gpic.xslx]Sheet1!$R:$S,2,FALSE)")" 


Next 


End Sub 

這是一個可以做所有的號碼VLOOKUP字段，但可以將代碼做T字母正確 我試圖與上面的代碼修復它，但就像我說的它會產生一個錯誤

Sub Work2() 
Dim LR As Long 
Dim row As String 
row = "W2" 
row = "W" & x 
LR = Range("W" & Rows.Count).End(xlUp).row 
Range(Columns(6), Columns(7)).Select 
For x = 0 To 2 
row = "W" & x 
Range("A2:A" & LR).Formula = "=VLOOKUP(VALUE(" & row & "),[gpic.xslx]Sheet1!$R:$S,2,FALSE)" 

Next 




End Sub 

爲了增加信息，R和S在工作表中我擡頭一看，從擁有所有的代碼等於品牌，所以我真的只會得到正確的結果或#VALUE我相信。

Column R Column S 
1  Ford 
2  Dodge 
AE  Hyundai 

這是vlookups如何工作

Answer 1

A  B  C  D  E  F 
    1  Adam  1  Adam 
    2  Peter  3  John 
    3  John  4  Phil 
    4  Phil  6  #N/A 

    A  B  C  D  E  F 
    1  Adam  1  Adam  6  Peter 
    2  Peter  3  John 
    3  John  4  Phil 
    4  Phil  6  Peter 

細胞D1包含下式：= IF（ISERROR（INDEX（B：B，MATCH（C1，A：A，0）））， INDEX（F：F，MATCH（C1，E：E，0）），INDEX（B：B，MATCH（C1，A：A，0））） 將其複製下來。