在多个单元格中设置公式（动态范围）

Question

我试图在动态范围内输入公式。 这是我到目前为止的wat。我想要做的是，例如，如果在nr(1)说B1，我希望公式从B3开始，然后转到F3。现在它一直到T3。

Sub punt()

Dim nr(2)

For i = 34 To 58
    nr(1) = ThisWorkbook.Sheets("BerekeningenEind").Range("AY" & i).Value
    If nr(1) = 0 Then
        'do nothing
    Else
        Range(nr(1)).Select
        ActiveCell.Offset(RowOffset:=2, Columnoffset:=0).Activate
        For k = 1 To 5
            ActiveCell.FormulaR1C1 = "=RC[-5]/10*R[-" & k & "]C"
        Next k
    End If
Next i

End Sub

我认为它与nr(1)有关，但我真的不知道要改变什么。谢谢！

Answer 1

为了在正确的单元格中获取Formula，请使用以下代码：

If nr(1) = 0 Then
    'do nothing
Else
    For k = 1 To 5
        Range(nr(1)).Offset(2, k - 1).FormulaR1C1 = "=RC[-5]/10*R[-" & k & "]C"
    Next k
End If

注意：我不确定您Formula想要做什么，但我认为还需要修改。