vba - 如果 Vlookup 出现错误，如何在 vba 宏中进行验证

Question

我需要用这个公式做一个宏。

=SI.ERROR(SI(A2=BUSCARV(A2;'NOVEDAD CARTOLA'!$A$2:$A$938965;1);C2;"No Cargar");"Error"

如果匹配，Wich 返回 C2，它会抛出“1004”错误标记公式。

我试过这个：

Sub Buscar()

Dim lr As Long

With ThisWorkbook.Worksheets("BASE")
    lr = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("D2:D" & lr).Formula = "=SI.ERROR(SI(A2=BUSCARV(A2;'NOVEDAD CARTOLA'!$A$2:$A$938965;1);C2; 'No Cargar'); 'Error')"
End With

End Sub

并且在 D 列中返回经过验证的结果（如果匹配：返回 C 列，如果不匹配：字符串，如果错误：字符串错误）很重要

标签： vbavlookup