Excel VBA 中的循环——如何在一个范围内迭代一个函数？

Question

所以我知道 Excel 有一个 NPV 函数，但我正在尝试创建自己的函数，因为我正在尝试自学 VBA。 我在表格中列出了数据，然后我想遍历单元格的水平范围（G5 到 I5）。 我试图构建循环的方法是提示输入现金流量并将该数字设置为结束日期。 这样宏可以用于不同持续时间的问题。

我的代码不起作用，我不知道为什么。 有人可以看看并帮助我吗？ 请使用外行的术语，因为我昨天刚开始使用 VBA。

Sub NPV()
Dim y As Integer, inv As Double, tax As Double, sal As Double, wc As Double, dr As Double, i As Integer, v As Double
y = Range("C4")
inv = Range("C5")
tax = Range("C6")
sal = Range("E4")
wc = Range("E5")
dr = Range("E6")

Dim total As Double
total = 0
For i = 1 To y
    v = Range("5, 5 + i")
    v = v / (1 + dr) ^ i
    total = total + v
    Next i

total = total + ((1 - tax) * sal) + wc
Range("F5").Value = total
End Sub

Answer 1

考虑更换：

v = Range("5, 5 + i")

和：

v = Cells(5, 5 + i)