Excel 通过动态拖动更改列公式的vba代码

我需要编写vba代码，其中单元格GQ4有公式

ActiveCell.Formula = "=SUM(CO4:CQ4)"

现在excel数据中每月都会添加新的月份，因此公式也会每月动态更改。 下个月就到了

"=SUM(CP4:CR4)"

简而言之，它将其列选择拖动1列

---

请帮助我编写一个vba代码，该代码将动态更改公式。

请注意，如果可以从自定义函数返回公式，则解决方案可能是编写一个自定义函数，返回所需的范围，然后让GQ4中的公式将范围作为参数

或者你可以用一个普通的工作表公式来解决它

=SUM(INDIRECT(ADDRESS(4;15));INDIRECT(ADDRESS(4;16));INDIRECT(ADDRESS(4;17)))

将列编号替换为可以使用日期函数获得的基数+偏移量。例如

=SUM(INDIRECT(ADDRESS(4;14 + =MONTH(TODAY())));INDIRECT(ADDRESS(4;15 + =MONTH(TODAY())));INDIRECT(ADDRESS(4;16 + =MONTH(TODAY()))))