在VBA中同时选择第一行和最后一行

Question

我试图使宏选择我的数据范围中的第一行和最后一行，但我不知道如何使它的选择行保持不变。这就是我试图做的：

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 

我dont't真的需要一个“第一排”的代码，因为我的数据总是会在第1行开始我也许应该提到，我以前从来没有学会VBA，但我'有点不得不学习它的工作XD（通过谷歌搜索得到了上述代码）。只是想知道是否有一种方法可以使两个选项同时突出显示。非常感谢！

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 

要选择不连续的范围内，您可以通过逗号分隔字符串的地址（字符串中）。

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

如果使用逗号字符串地址外：

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

这是一样的：

Range("A1:A5").Select