百分比发现

我只是想计算百分比：

Range("E7").Value "=(E5/(E5+E6))" 

这工作正常，因为这是静态范围。 但在此之后，我插入一行像：

 Range("A1").EntireRow.insert 

现在百分比列保持静态，但我想要公式将一行向下移动也是：

 Range("E8").value = "(E6/(E6+E7))" 

Answer 1

使用范围对象来解决这个问题，使用范围对象，当你插入或删除行或列时，它将会移动。

 Sub Answer() Dim percentage As Range Set percentage = Range("E7") Range("A1").EntireRow.Insert percentage.FormulaR1C1 = "=R[-2]C/(R[-2]C+R[-1]C)" End Sub