VBA从一个固定的单元格直到第一个空白单元格求和

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

 =sum (A6:AX) 

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

然后，我将这个写入我的VBA循环来完成第n张第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