Question

我目前正在尝试弄清楚如何选择从第二行到最后一行的范围，但更具体地说是在一系列列之间。例如，我想选择范围（A2:L2）到电子表格中的最后一行数据。

我试过了，

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("A2:L2" & Lastrow).Select

但是这会从A2:L2一直选择到电子表格的底部。我已检查Lastrow是否不正确，但我将其打印到单元格并显示正确的行数。

Answer 1

试试这个：

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("A2:L" & Lastrow).Select

让我们假装Lastrow的值为50.当您使用以下内容时：

Range("A2:L2" & Lastrow).Select

然后选择A2到L250的范围。

Answer 2

Sub SelectAllCellsInSheet(SheetName As String)
    lastCol = Sheets(SheetName).Range("a1").End(xlToRight).Column
    Lastrow = Sheets(SheetName).Cells(1, 1).End(xlDown).Row
    Sheets(SheetName).Range("A2", Sheets(SheetName).Cells(Lastrow, lastCol)).Select
End Sub

与ActiveSheet一起使用：

Call SelectAllCellsInSheet(ActiveSheet.Name)

如何选择第二行到最后一行的范围

2 个答案: