如何用VBA计算第三行数据减去第二行数据并除以第二行数据，并以此类推

假设你想对 A 列进行计算，可以使用以下的 VBA 代码：

Sub calculate()

    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRow
        Cells(i, 1).Value = (Cells(i, 1).Value - Cells(i - 1, 1).Value) / Cells(i - 1, 1).Value
    Next i

End Sub

这段代码将从第二行开始，对 A 列的每一行进行计算，计算方法是当前行减去上一行的值，然后除以上一行的值。最后，将计算结果写回到当前行。注意，这段代码假设你已经将数据输入到了 A 列中。如果你的数据在其它列中，需要将代码中的 1 替换为对应的列号。