excel - Excel VBA 输出范围在不需要时跳过列

Question

我已经构建了一些 VBA 来帮助将记录从不正确的选项卡移动到正确的选项卡。我已经制定了对动态范围求和的逻辑，因为每次刷新时输出的大小可能会有所不同。

我遇到的问题是在我编码的 SUM 输出中，当我不希望它跳过某些列时。被跳过的列是H (col 8)、L (col 12)和R col (18)。设计的列输出范围为3 to 41. 输出设置为覆盖一个 SUM 公式，根据生成工作表的模板的先前设计（不是我自己的设计），该公式是硬编码的，并且没有对给定列中正确的单元格范围求和。

For x = 3 To 41
    Set r = Range(Cells(6, x), Cells(6, x).End(xlDown))
    r.End(xlDown) = WorksheetFunction.Sum(r)
Next x

Answer 1

由于.End(..)一旦碰到空白单元格就会停止，我假设这些列在某处有空白单元格，并且您的 Sum 被存放在较早的行/单元格中，而不是您期望的位置。