VBA Excel vlookup循环问题

Question

我在包含订单的 Excel 电子表格中的 VBA 代码有问题。每行包含一个客户编号，我用它来查找客户电子邮件地址，该地址包含在工作簿的不同工作表中。

vlookup 代码对于单个单元格工作正常，但问题是当我尝试循环遍历电子表格的所有行时。单个单元格的 Excel 公式是，例如，

=VLOOKUP(B2,Customers!A2:D1000,4,FALSE)

为此生成的 VBA 代码是：

    Range("M2").Select
ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-11],Customers!RC[-12]:R[999]C[-9],4,FALSE)"

将其合并到循环中，选择起始单元格后，我有以下内容：

Cells(2, 13).Select
Do
  ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-11],Customers!RC[-12]:R[999]C[-9],4,FALSE)"
  ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -10))    

问题是我希望“表数组”为 < strong>固定，与正在查找值的单元格无关。但我绝对不知道该怎么做。如果我按如下方式更改代码，则会出现运行时错误：

ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[-11],Customers!A2:D1000,4,FALSE)"

我尝试过引用、取消引用、设置范围变量、将范围变量与 .address 一起使用...有人请帮忙吗？

太感谢了。

Answer 1

我很确定 R1C1 公式中的括号表明您正在指定一个相对范围（特别是其中包含负数）。如果要指定绝对范围，则需要指定R1C1单元格不带括号；例如R2C2:R4C4。

举一个简单的例子：

Sub test()
  Sheet1.Range("C5").FormulaR1C1 = "=VLOOKUP(1,R1C1:R3C3,2,FALSE)"
End Sub

运行此命令会在单元格 C5 中提供绝对的“A1”式公式。

我认为你的问题可能是：

Customers!RC[-12]:R[999]C[-9]

因为它是一个相对范围。您必须明确指定数据表的位置；例如 Customers!RC12:R999C9 （您需要弄清楚它在工作表上的位置）。

解决这个问题的一个简单方法是突出显示工作表上的数据表，然后切换到 Visual Basic 编辑器并手动运行它（将光标放在 Sub 内，然后按“播放”按钮或转到“运行”->“运行”）。跑步）。

Sub test2()
    Dim r As Range
    Set r = Application.Selection
    InputBox "your r1c1 range:", , r.Address(True, True, xlR1C1)
End Sub