Excel 自动填充和调整公式

Question

我编写了一个代码，使用 VBA 中的自动填充功能将列添加到范围的末尾。因此，当删除范围开头的列时，代码将在范围末尾添加一列。 所以范围总是相同的大小。我的意思是例如 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)"