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