excel - 应用公式，从选定单元格偏移三列

Question

我创建了 VBA 代码来应用一个公式，该公式应该执行以下操作:当用户选择一个单元格区域时，该公式将应用于所选数据右侧的 3 列。例如，如果用户选择范围 G8:G18，当用户执行宏时，应从范围 G8:G18 的数据中对范围 J8:J18 应用公式

但是，该公式在 G8 范围内，而不是在 J8:J18 范围内应用。

Sub ghjkk()
Dim c As Range
Dim rng As Range
Set rng = Selection.Offset(0, 3)
For Each c In rng
ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]=0.2,""Y5"",IF(RC[-3]=0.1,""Y6"",IF(RC[-3]=0,""V0"",IF(RC[-3]=0.021,""Y3"",IF(RC[-3]=0.055,""Y4"",FALSE)))))"
Next c
End Sub

Answer 1

尝试

Sub ghjkk()
    Dim c As Range
    Dim rng As Range
    Set rng = Selection.Offset(0, 3)
    For Each c In rng
        c.FormulaR1C1 = _
 "=IF(RC[-3]=0.2,""Y5"",IF(RC[-3]=0.1,""Y6"",IF(RC[-3]=0,""V0"",IF(RC[-3]=0.021,""Y3"",IF(RC[-3]=0.055,""Y4"",FALSE)))))"
    Next c
End Sub