Question

我有以下代码用于获取列表中的最后一个值：

<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<input type="button" value="Toggle value" />

唯一的问题是我想将该选择存储为值。有关如何做到这一点的任何想法？

如果我这样做：

 Range("B3").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.End(xlDown).Select

Var只打印TRUE

Answer 1

最好避免使用Select和Selection，而是使用合格的对象，例如Worksheet和Range。

注意：使用.End(xlDown)获取最后一行只有在数据没有间隙（空行）时才有效。

如果您有空行，并且想要获取最后一个单元格，请改用以下行：

.Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Row)

代码

Sub LastCellVariable()

Dim Var

' modify "Sheet1" to your sheet's name
With Sheets("Sheet1")

    ' to get the value from the last cell
    Var = .Range("B3").End(xlDown).Value

    ' to get the cell's address from the last cell
    Var = .Range("B3").End(xlDown).Address
End With

End Sub

如何将最后一个变量存储在列表中

1 个答案:

代码