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

我已经构build了一些VBA来帮助将logging从不正确的标签移动到正确的标签。 我已经计算出了dynamic范围的逻辑和，因为每个刷新的输出可能是不同的大小。

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

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