Question

我正在寻找一个可以让我从多个参考中查找的函数：
案件是这样的：

我使用一个函数从另一个Excel文件中查找数据。

   |--ID Number----|---Name------|

   |--1234---------|-------------|

name的值将从另一个excel文件中查找然后我创建一个宏，可以再添加一行。

   |--ID Number----|---Name-----|

   |--1234---------|--Tony------|

   |--2345---------|------------|

第二行的值来自第一行的不同文件该宏的功能如下所示：

Range("B4").Select     
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],[TEST.xlsx]Sheet1!R3C6:R1000C25,2,0)"

我希望源文件（在本例中为 TEST.xlsx ）对于每一行都是不同的。
我可以用什么功能来解决我的问题？

Answer 1

试试这个。假设您在C列上有文件名（ID和名称 - 其中包含A＆amp; B中的公式）

Dim myformula As String
Dim rngtofill As Range

With Sheets("Sheet1") '~~> or whatever sheet
    Set rngtofill = .Range("B4", .Range("B" & .Rows.Count).End(xlUp))
End With

For Each cel In rngtofill
    myformula = "=VLOOKUP(" & cel.Offset(0, -1).Address(, , xlR1C1) & _
        ",[" & cel.Offset(0, 1).Value & "]Sheet1!R3C6:R1000C25,2,0)"
    cel.Formula = myformula
Next

同样，假设您在C4中有 TEST.xlsx ，并且您有一个固定的搜索范围。
这不是使用 INDIRECT ，因为您可以应用VBA。

从多个参考查找

1 个答案: