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

我刚开始编写宏，有一个简单的问题。我一直试图做的是选择空单元格之前的所有数据点，然后存储最后一个点的行索引。例如，在下面的代码中，我将选择行1-4，并且将存储的行索引是4。到目前为止，我已经有了选择数据点的代码：

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

1。342
2.342
3.324
4.234
5.
6.43242
7.342
8.32423
94324

试试这个

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

如果您打算选择范围，请使用

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

尽管我建议不要选择范围。用这个代替

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

试试这个

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

如果您打算选择范围，请使用

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

尽管我建议不要选择范围。用这个代替

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