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将存放在较早的行/单元格中，而不是您期望的地方。