在VBA中同时select第一行和最后一行

我试图做一个macros来select我的数据范围中的第一行和最后一行，但我不知道如何使两行select保持不变。 这是我试图做的：

Sub Macro6() ' ' Macro6 Macro ActiveWindow.SmallScroll Down:=15 Dim lr As Long lr = Cells(Rows.Count, 1).End(xlUp).Row Rows(lr).Select Rows(1).Select End Sub 

因为我的数据总是从第一行开始，所以我不需要第一行代码。我应该提一下，我从来没有学过VBA，但我有点不得不学习它的工作XD（得到了上面的代码通过谷歌search）。 只是想知道是否有一个方法，将使两个select同时突出显示。 非常感谢！

Answer 1

尝试这个：

 Dim lr As Long With Sheets("Sheet1") '~~> change to suit lr = .Range("A" & .Rows.Count).End(xlUp).Row .Range("A1," & "A" & lr).EntireRow.Select End With 

或者像这样：

 .Range("1:1," & lr & ":" & lr).Select 

要select不连续的范围，可以用逗号（string内）分隔string地址。

 Range("A1,A5,A10").Select 

如果您在string地址之外使用逗号：

 Range("A1", "A5").Select 

这是一样的：

 Range("A1:A5").Select