Vba：使用動態范圍查找百分比變化

Question

我有三個數據范圍：D14：F28，H14：J28和L14：N28。 我編寫了一個宏，該宏在第14行附加了新的一年的數據，從而將范圍擴大到：D14：F29，H14：J29和L14：N29。

我正在嘗試開發另一個宏，該宏計算每個范圍內每列的百分比變化，並將百分比變化從最后一個具有數據的單元格向下放置兩個單元格（例如（D14-D29）/ D31等中的D29）。 問題是我需要公式是動態的，以便將下一年的數據追加到表中時，每個新范圍內每列的百分比變化都將從上一個包含數據的最后一個單元格向下放兩個單元格（例如（D32等中的（D14-D30）/ D30等）。 當使用宏時，明年的數據也會發生同樣的事情，依此類推。

這是我想出的代碼：

Sub Percent_change_Calculation()
iRow = 14
Cell_val = Cells(iRow, 4)

While Cell_val <> ""
    iRow = iRow + 1
    Cell_val = Cells(iRow, 4)
Wend
Cells(iRow + 1, 4) = "=(D14-iRow)/iRow"
End Sub

但是它不計算百分比變化和“ #NAME？” 在單元格中輸入。 從好的方面來說，我希望它位於單元格中。

我在這里先向您的幫助表示感謝，

Answer 1

Sub Percent_change_Calculation()

    With Cells(14, 4).End(xlDown)

        .Offset(2, 0).Formula = Replace("=(D14 -{a})/{a}", _
                               "{a}", .Address(False, False))
    End With

End Sub