Excel Vlookup VBA答案

【问题标题】：Excel Vlookup VBAExcel Vlookup VBA
【发布时间】：2017-08-16 21:21:26
【问题描述】：

我需要添加 Invoice 作为测试，然后应该运行 V 查找公式

例如 :="invoice"&" "&VLOOKUP(H3,FBL5N!D:G,4,0) 这个公式我需要转换为宏的

让我知道如何修复我尝试了我的 VBA 公式：

On Error Resume Next
For i = 3 To lastrow_d
     ws_zfi.Range("AY3:AY" & lastrow_d) = "invoice" & Application.WorksheetFunction.VLookup(ws_zfi.Range("H3:H" & lastrow_d), ws_fbl5n.Range("D1:G" & lastrow_d), 4, 0)
 Next i

【问题讨论】：

您遇到什么错误？我的第一个猜测是预期结束，你需要修正你的报价。与您的示例相关，您可以将空格与发票一起放入，例如“发票”而不需要其他 &。
您将一系列单元格（可能很多）作为VLOOKUP 的第一个参数传递，而它需要一个值/字符串 - ws_zfi.Range("H3:H" & lastrow_d)

标签： excel vlookup vba

【解决方案1】：

如果不查看源表很难回答，但我认为您想要以下内容：

For i = 3 To lastrow_d
    ws_zfi.Range("AY" & i) = "invoice" & Application.WorksheetFunction.VLookup(ws_zfi.Range("H" & i), ws_fbl5n.Range("D1:G" & lastrow_d), 4, 0)
Next i

【讨论】：