VBA - 数据计数

Question

With ActiveSheet
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
MsgBox lastrow
End With

这是我目前正在使用的代码，但它会计算“A”列上的每个数据。

我想要发生的是它应该只计算从单元格A6开始向下的数据，直到数据存在。

我在A6中的数据包含“GNW-17-001”，以A31“GNW-17-026”结尾

上面的代码显示了“31”记录的结果

Answer 1

而不是

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

使用

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row - .Range("A6").Row + 1

Answer 2

我不知道这是否让你满意：

'finds first row below A6 with some data
.Range("A6").End(xlDown).Row