获取最后一个非空白单元格的行索引。

我是新的编码macros，只是有一个快速的问题。 我一直在试图做的是select一个空单元格之前的所有数据点，然后存储最后一点的行索引。 例如，在下面的代码中，我将select第1-4行，并将存储的行索引是4.我有这样的代码select数据点：

Cells(2, 2).Select Range(Selection, Selection.End(xlDown)).Select 

我只需要存储最后一行索引。 示例数据：

 1. 342 2. 342 3. 324 4. 234 5. <This would be an empty cell> 6. 43242 7. 342 8. 32423 9. 4324 

Answer 1

尝试这个

 LastRow = Cells(2, 2).End(xlDown).Row 

如果您打算select范围，请使用

 LastRow = Selection.Row + Selection.Rows.Count - 1 

虽然我会build议反对select范围。 改用这个

 Dim rng As Range Set rng = Range(Cells(2, 2), Cells(2, 2).End(xlDown)) LastRow = rng.Row + rng.Rows.Count - 1 

Answer 2

 ' column = whatever column you're working with For evalRows = 1 to Range(Selection, Selection.End(xlDown)).Row If IsEmpty(Cells(evalRows, column).Value) Then ' you can only refer to the previous row if you're not on the first row If evalRows = 1 then ' do nothing Else ' refer to previous row lastUsefulRow = Offset(evalRows - 1, column).Row End If End If Next