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

我似乎无法弄清楚为什么我的代码将无法正常工作。

我正在尝试插入一个公式，该公式将成本乘以通货膨胀系数，这取决于input的评级。 For循环遍历同一列（5）中的7行数据，获取评分，并根据此评分指定一个自定义公式。 当我一步一步地通过代码，这些值都是正确的，我可以在消息框中输出正确的方程。 不知道为什么我不能把它发布到单元格，虽然…我认为这与我使用Range(Cells(j, 4))而不是类似Range("D15")的事实有关

请注意，我通过Inflation5命名了一些单元Inflation5 。

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

代码如下：

 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