Excel Vlookup VBA

我需要添加发票作为一个testing,然后V查找公式应该运行

例如:=“invoice”&“”&VLOOKUP(H3,FBL5N!D:G,4,0)这个公式我需要转换成macros

让我知道如何解决我尝试我的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 

没有看到源表很难回答,但我你想要以下内容:

 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