Question

我正在尝试从一本工作簿到另一本工作簿进行vlookup，但是我继续遇到错误，并且不确定这是怎么回事。我正在尝试在另一工作簿的a列中查找表，在A到D列中查找表数组，并返回D列中的内容。我的错误在vlookup行中。

Sub vlookup
    Dim z as long
    Z = Range(“A” & Rows.Count).End(xlUp).row
    Range(“C5”).Formula =“=vlookup(A5,’[DCS Checkrun.txt]DCS Checkrun’!$A:$D,4,False)”
    Range(“C5”).copy
    Range(“C5:C” $ z).pastespecial xlPasteAll 
End sub

Answer 1

Range(“C5”).Formula =“=vlookup(A5,’[DCS Checkrun.txt]DCS Checkrun’!$A:$D,4,False)”
Range(“C5:C” $ z).pastespecial xlPasteAll

您正在使用$而不是&进行串联，并且它们是“智能引号”（例如“和”）而不是常规引号。

Range("C5").Formula = "=vlookup(A5, '[DCS Checkrun.txt]DCS Checkrun'!$A:$D, 4, False)"
Range("C5:C" & z).pastespecial xlPasteAll

实际上，您可以一次编写所有公式。

Range("C5:C" & z).Formula = "=vlookup(A5, '[DCS Checkrun.txt]DCS Checkrun'!$A:$D, 4, False)"

我不确定我在vlookup上的代码有什么问题

1 个答案: