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

Question

我试图在动态范围内输入一个公式。 这是我到目前为止得到的。我想做的是，例如，如果在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 应该做什么，但我认为它也需要修改。