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

假设第二行数据的起始单元格为B2，第三行数据的起始单元格为B3，可以使用以下VBA代码计算并输出结果：

Sub CalculateRatio()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row '获取最后一行数据的行号
    
    For i = 2 To lastRow - 1 '循环遍历第二行到倒数第二行的数据
        Cells(i, "C").Value = (Cells(i + 1, "B").Value - Cells(i, "B").Value) / Cells(i, "B").Value '计算并输出结果
    Next i
End Sub

这段代码将计算第二行到倒数第二行数据的差值与除数的比值，并将结果输出到相应单元格的右侧（假设结果存放在C列）。您可以将代码复制到VBA编辑器中，然后在Excel表格中运行它来计算结果。