Excel 自动填充和调整公式

Question

我编写了一个代码，使用 VBA 中的 function 自动填充将列添加到范围的末尾。 因此，当删除范围开头的列时，代码将在范围末尾添加一列。 所以范围总是相同的大小。 我的意思是例如 N 列直到 DA 列。

这一切都完美无缺，除了一件事。 在 E 列中（在 N - DA 范围之前），我有一个公式，它对 N - DA 范围内的某个范围求和。 为了确定必须对哪个范围求和，我检查了 N - DA 范围内的一个值（周数）。 但是当最后添加一列时，E列中的公式不会调整为再次延伸到DA列。

那么，当我在 VBA 中使用自动填充时，如何调整 E 列中的公式直到 DA 列？ 当我通过在工作表中选择并向右拖动来手动执行此操作时，它也不起作用。

Answer 1

在您的 VBA 中，在最后的列中添加后，添加将调整公式的代码。 例如，假设您的求和公式是这样的：

=SUM(N1:DA5)

您已经在变量中拥有新的最后一列（我假设），因此使用它来调整公式。 您可以以编程方式插入公式，如下所示：

newLastColumn = "DB"
Range("E1").Formula = "=SUM(N1:" & newLastColumn & "5)"