vba - VLOOK UP 的自动化工具

Question

我需要在一组 excel 文件中执行许多 VLookup，为此我构建了一个工具，可以自动从一个文件到另一个文件的 VLookup，但我需要使其具有可扩展性和适应性。

为此，我想在工具的某些单元格（这是一个 Excel 文件）中输入 VLookup 的参数：

• 关键列的位置
• “返回值”列的位置
• 范围内的列数

您知道如何更改我的工具以使其包含这些输入参数吗？

这里的代码示例：

For myrow = 3 To lastrow
    Range("b" & myrow).FormulaR1C1 = _
      "=VLOOKUP(RC[-1], Input!C[-1]:C[2],2,FALSE)"
Next myrow

标签： vbaautomationvlookup

Answer 1

我不精通R1C1符号，但是如果您使用常规.Formula符号：

以下代码假定A1= 键列，A2= 返回值列，A3= 范围内的列数（实际上只是您的返回列）。

lastrow = 10仅用于示例

另请注意-您必须缺少一个字段...因为您应该有4个变量-第一个参数的键列，第二个参数的2个列字母以及第三个参数的列数。

Sub Test()

lastrow = 10

For myrow = 3 To lastrow

    'Range("B" & myrow).Formula = "=VLOOKUP(" & Range("A1").Value & myrow & ",Input!$" & Range("A1").Value & ":$" & Range("A2").Value & "," & Range("A3").Value & ",FALSE)"
    Debug.Print "=VLOOKUP(" & Range("A1").Value & myrow & ",Input!$" & Range("A1").Value & ":$" & Range("A2").Value & "," & Range("A3").Value & ",FALSE)"

Next myrow

End Sub

上的值ActiveSheet：

立即窗口返回：