Question

Vlookup的公式用法 activeWS.cell("A9") =INDEX(Breaking_Data!F5:F,MATCH(A8,Breaking_Data!A5:A,0))

我尝试在VBA代码中运行它，但它不起作用，任何人都知道如何修改VBA代码。在ws("Breaking_Data")中使用范围查找A8单元格值（＆＃34; A5：A＆＃34;）。如果任何值匹配则为lastcellvalue，然后复制相同的行单元格值范围（＆＃34; F5：F＆＃34; ）＆amp;将其粘贴到活动的单元格A9中。

Answer 1

您有2个选项。

您可以将其作为函数包含在内：

activeWS.cell("A9") = "INDEX(Breaking_Data!F5:F1048576,MATCH(A8,Breaking_Data!A5:A1048576,0))"

或者你可以获得价值：

activews.Range("A9") = Application.Index(Sheets("Breaking_Data").Range("F5:F1048576"), Application.Match(activews.Range("A8"), Sheets("Breaking_Data").Range("A5:A1048576"), 0))

Answer 2

试试这个：

dim lastR as Long: LastR = Worksheets("Breaking_Data").Range("A" & Rows.Count).End(xlUp).Row

activeWS.cell("A9").Value = Application.Evaluate _
    ("Index(Breaking_Data!F5:F" & lastR & ", Match(A8, Breaking_Data!A5:A" & lastR & ", 0))")

Vba到vlookup值＆amp;将下一个单元格值复制到发票表

2 个答案: