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

假设你要计算的数据在 A 列，第一行为表头，第二行开始为数据，可以使用以下 VBA 代码：

Sub CalculateRatio()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row  ' 获取最后一行的行号
    
    For i = 3 To lastRow ' 从第三行开始循环计算
        Cells(i, "A").Value = (Cells(i, "A").Value - Cells(i - 1, "A").Value) / Cells(i - 1, "A").Value
    Next i
End Sub

这段代码会循环遍历第三行到最后一行的数据，计算当前行的值减去上一行的值并除以上一行的值，然后将计算结果直接覆盖原来的数据。注意，这段代码会直接修改原始数据，请确认备份数据后再运行。