Vba 到 vlookup 值并将下一个单元格值复制到发票表答案

【问题标题】：Vba to vlookup value & copy next cell value to invoice sheetVba 到 vlookup 值并将下一个单元格值复制到发票表
【发布时间】：2017-01-23 02:51:14
【问题描述】：

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

我尝试在 VBA 代码中运行它，但它不起作用，任何人都知道如何为 VBA 代码修改它。使用 Range("A5:A").lastcellvalue 查找 ws("Breaking_Data") 中的 A8 单元格值，如果任何值匹配，然后复制相同的行单元格值形成范围 ("F5:F") 并将其粘贴到活动工作表单元格 A9 中。

【问题讨论】：

标签： vba excel

【解决方案1】：

试试这个：

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))")

【讨论】：

【解决方案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))

【讨论】：