VLOOK的自动化工具

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

Answer 1

我不太熟悉R1C1表示法，但是如果您使用的是常规的.Formula表示法：

下面的代码假设A1 = Key列、A2 =返回值列、A3 =范围内的列数(实际上只是返回列)。

lastrow = 10只是举个例子

还要注意-你一定是错过了一个领域.因为您应该有4个变量--第一个参数的键列，第二个参数的两个列字母，以及第三个参数的列数。

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上的值

​

​

立即窗口返回：

​

​