用vba 在excel算一列数两两的增长率，怎么算，比如(a2-a1)/a1,求大神

---

你好，

下面给出两种方法以供参考。桥扰穗

方法一（非 VBA）：

如下图所示，A 列中有四行数据，先在 B2 中输入公式：=(A2-A1)/A1，然后使用公式填充下敏卜拉至 B4 即可。

方法二（VBA）：

Sub CalcGrowthRate1()
    Range("$B$2:$B$4").FormulaR1C1 = "=(RC[-1]-R[-1]C[-1])/R[-1]C[-1]"
End Sub

Sub CalcGrowthRate2()
    Range("$B$2:$B$4").Formula = "=(A2-A1)/A1"
End Sub

在 VBA 的实际应用中，请自行修改代码中的单元格地址。

如有题李虚意误解，请指出！

---

你自己不是已经前纯给出迅郑答案了吗？
B2输入公式
=(a2-a1)/a1
公式慧昌咐下拉完成

---

为什么要用VBA呢，直凳旦接用 =(a2-a1)/a1
就孙绝可枣凯扰以了，方便简单
没必要搞的很麻烦

---