如何根据另一个单元格的值在单元格中发布自定义方程式？

Question

我似乎无法弄清楚为什么我的代码无效。

我正在尝试插入一个公式，该公式将成本乘以一个膨胀因子，具体取决于输入的评级。 For循环遍历同一列（5）中的7行数据，获取评级，并根据此评级分配自定义公式。当我逐步完成代码时，值都是正确的，我能够在消息框中输出正确的等式。不知道为什么我不能把它发布到单元格...我认为这与我使用Range(Cells(j, 4))而不是像Range("D15")

这样的事实有关

值得注意的是，我将一些单元格Inflation1命名为Inflation5。

例如：如果在单元格E4中评分为2，则代码应将公式=Inflation2*D4粘贴到单元格D15中。

以下是代码：

Sub InflationFactor()
Dim CurrentRow As Long
CurrentRow = 4
Dim Rating As Long
Dim j As Long
j = 15

For i = CurrentRow To CurrentRow + 6
    Rating = Cells(i, 5).Value
    Sheet1.Range(Cells(j, 4)).Formula = "=Inflation" + Str(Rating) + "*D" + Str(i)
    i = i + 1
    j = j + 1
Next
End Sub