Excel 下一个子系统在VBA中沿列返回相同的值？

我是VBA新手，正在尝试了解如何添加/更改代码，以便在代码向下计算我拥有的2列数据时，每个单元格中的值都会发生变化。现在，我有相同的值向下移动13000行。这是我的代码：

Sub SReturn()
    For Index = 1 To 13000
        If Range("H3").Cells(Index, 1) = Range("H2").Cells(Index, 1) Then
        Range("I3").Cells(Index, 1) = Log(Range("F3") / Range("F2"))
    Else: Range("I3").Cells(Index, 1) = " "
        End If
    Next Index
End Sub

---

您希望值如何更改？因此，我在F列中有一个价格列表，用于计算收益。我想取ln（F3/F2），我现在有，然后我想下一个单元格来计算ln（F4/F3），然后ln（（F5/F4），等等，如果这更有意义的话。

范围（“H3:H13000”）。公式=“=ln（F3/F2）”

，但您可能希望查找最后一行，以便不在不需要的地方填充公式。请使用

vbNullString

而不是

R1C1

公式样式。这样，公式将引用正确的单元格