Question

我目前正在循环中使用包含以下条件的循环。

For Each Cell In Range("A3:A1000").Cells
     If Cell.Value = "Existing" And IsEmpty(Cell.Offset(0, 7).Value) Then
     Cell.Offset(0, 7).Value = "X"
     Cell.Offset(0, 5).Formula = "=VLookup(RC[-1],Customers!R2:T5000,2,FALSE)"
     Cell.Offset(0, 6).Formula = "=VLookup(RC[-2],Customers!R2:T5000,3,FALSE)"
     End If
Next Cell

适用于一个例外，每当公式附加到单元格时，第二个值变为CUSTOMERS！$ 2：$ 2：'T5000'。有谁知道为什么会这样？

Answer 1

您混合了.Formula和.FormulaR1C1属性以及每个属性的正确语法。试试这些方法：

Cell.Offset(0,5).FormulaR1C1 = "=VLookup(RC[-1],Customers!R2C18:R5000C20,2,FALSE)"
Cell.Offset(0,6).FormulaR1C1 = "=VLookup(RC[-2],Customers!R2C18:R5000C20,3,FALSE)"

VBA在循环中引用公式中的节时断开

1 个答案: