相邻列值的相对函数更新

Question

我有一个带有基本功能的动态表，用于汇总列J中记录的所有条目的总值。条目计数每月变化，下面显示的代码是我如何总结所有内容。

SUMTOTAL = WorksheetFunction.Sum(Range("J2", Range("J2").End(xlDown)))

我需要取这个总金额并在下一栏（在这种情况下为K）的等式中使用它来显示所有条目的总价值的哪一部分单独表示为百分比Eg（条目值1200美元中的$ 1200它将显示1.67％）。现在我被困在如何在公式中的J列中分配单元格。

ActiveCell.Formula = Range("J2") / SUMTOTAL
Range("K2").AutoFill Destination:=Range("K2:K" & TABLEROW)

上面适用于一个单元格，但在填充到表格末尾时不会更新。当我尝试使用RC [-1]指定时，我得到一个名称错误，可能是没有识别出SUMTOTAL。这是我的J2细胞指定的问题吗？或者我是否需要重写整个代码字符串？

提前感谢您的建议。

Answer 1

Range("J2") / SUMTOTAL不会返回可放置在单元格中的公式。它返回一个设定值。

要设置公式，您需要创建一个可以作为公式插入的字符串。

此外，您不需要AutoFill只需一次分配它们：

ActiveSheet.Range("K2:K" & TABLEROW).Formula = "=" & ActiveSheet.Range("J2").Address(0,0) & "/" & SUMTOTAL