1

我是编码宏的新手，只是有一个简单的问题。我一直在尝试做的是选择一个空单元格之前的所有数据点，然后存储最后一个点的行索引。例如，在下面的代码中，我将选择第 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
4

2 回答 2

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
于 2012-07-29T00:54:50.593 回答
0 
' 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
于 2012-07-28T22:57:14.863 回答