VBA在单元格和循环中插入具有偏移的公式

Question

我有小时数据。我需要有一个计算单元，在两个不同的变量（比如A列和B列）之间计算第1天和第7天的R ² 然后循环，以便下次计算R ² 第2-8天，然后第3-9天等等。 我必须说，在Solver中使用具有R ² 公式的单元来求解max R ² 的一些代码/公式，因此包含R 2 需要是一个公式，而不是一个值..（我已经能够将其作为一个值而不是一个公式来抵消）。当前代码的一部分如下：

i = 0
ActiveSheet.Cells(24,13).Value = Application.WorksheetFunction.RSq(RangeA.offset(i,0), RangeB.offset(i,0)

i = i + 24

许多人提前感谢任何有用的提示

干杯

Answer 1

假设您已命名范围RangeA和RangeB，则可以使用：

ActiveSheet.Cells(24,13).Formula =  "=RSQ(RangeA,RangeB)"

或者，您可以使用R1C1表示法中的相对引用，如下所示：

ActiveSheet.Cells(24,13).Formula = "=RSQ(RC[-2],RC[-1])"

或，对于多细胞范围：

ActiveSheet.Cells(24,13).Formula = "=RSQ(RC[-2]:R[2]C[-2],RC[-1]:R[2]C[-1])"