左vlookup错误

Question

我想在这里做左vlookup。 我知道我有一些无法找到的值，但我不明白为什么在循环中间仍然会弹出“应用程序定义的错误”或“对象定义的错误”。 感谢您的帮助。

 With Sheet3
 x = 2
 Do Until IsEmpty(.Range("E" & x).value)
 look = .Range("E" & x).value
 result = WorksheetFunction.Index(Sheet2.Range("A:A"), 
 WorksheetFunction.Match(look, Sheet2.Range("B:B"), 0))
   If Not IsError(result) Then
       .Range("F" & x).value = result
   Else
       .Range("F" & x).value = " "
   End If
   x = x + 1
Loop
End With 

Answer 1

在VBA中，如果Variant拥有vbError值，则IsErrror函数将返回true。 当找不到匹配项时发生错误时，即使该值是变量，也不会将其分配给Result变量。 您将必须使用On Error Goto ...方法捕获该错误。

没什么大不了的。 您的代码可能看起来像这样。

Result = ""
On Error Resume Next
Result = WorksheetFunction.Index(Sheet2.Range("A:A"), _
         WorksheetFunction.Match(look, Sheet2.Range("B:B"), 0))
.Range("F" & x).Value = Result

如果导致错误，则变量Result将保留以前的值。 因此，在功能之前将其设置为“”。 因此，您无需测试是否有错误。

在编写此代码的过程中，我发现您还错过了Index函数的换行符下划线。

Answer 2

这个数组公式会起作用吗？

=INDEX($B$1:$B$8,SMALL(IF($A$1:$A$8=$E$1,ROW($A$1:$A$8)),ROW‌​S($G$1:$G1))) 

它在第1至8行