我目前正在尝试弄清楚如何选择从第二行到最后一行的范围,但更具体地说是在一系列列之间。例如,我想选择Range(A2:L2
)到电子表格中的最后一行数据。
我试过了,
Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:L2" & Lastrow).Select
但这会从A2:L2
一直选择到电子表格的底部。我检查了Lastrow
是否不正确,但我将其打印到了一个单元格,并显示了正确的行数。
发布于 2013-06-26 17:59:22
试试这个:
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的范围。
发布于 2017-03-14 20:36:47
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)
https://stackoverflow.com/questions/17327037
复制相似问题