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

我试图把dynamic范围内的公式。 这是我到目前为止的扫pipe笏。 我想要做的是，例如，如果在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假设要做什么，但是我认为它也需要修改。