VBA从固定单元格到第一个空白单元格的列

Question

我有一列数字数据，我需要将指定单元格中的值加总，直到列中第一个空白单元格之前的最后一个值。我之前使用过Range函数来完成此操作，但在这种情况下，空白单元格之前的行数是未知的，无法在范围内定义。简单的解释是我需要单元格A1中的结果为

=sum (A6:AX)

其中X是第一个空白单元格之前的一个。

然后我会将它写入我的VBA循环，以便在第n张第n列完成它。

Answer 1

使用以下子目录：

Sub SumTillBlankCell()
Dim BeforeFirstBlankCell

  BeforeFirstBlankCell = Range("A6").End(xlDown).Row
  Range("A1").Value = Application.Sum(Range("A6:A" & BeforeFirstBlankCell))

End Sub