为范围VBA Excel中的每个单元格设置偏移值

Question

我正在尝试将值与范围内的每个单元格进行比较。 一旦存在匹配项，我想将另一个变量设置为偏移3列的旧值。

For Each i In Worksheets("SFDC Input").Range("D2:D20").Cells
    If ProductFamily = i Then
        i.Offset(0, -3).Value = ID
    End If
Next

ProductFamily是我正在与i进行比较的值。 我希望ID成为值的持有者。

Answer 1

您的分配（ = ）似乎是向后的。 您正在将i.Offset(0, -3).Value设置为ID而不是将ID设置为该值。

请尝试以下操作：

ID = i.Offset(0, -3).Value

从MSDN ：

=运算符将其右侧的值分配给其左侧的变量或属性。