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

我试图创建一个宏来选择数据区域中的第一行和最后一行，但我不知道如何创建宏，以便保留对这两行的选择。这就是我试图做的：

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

我并不真正需要“第一行”代码，因为我的数据总是从第1行开始。我可能应该提到，我以前从未学习过VBA，但我有点被迫为WorkXD学习它（通过谷歌搜索获得上述代码）。只是想知道是否有一种方法可以同时突出显示两个选择。非常感谢

试试这个：

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").Select

这与：

Range("A1:A5").Select

Range("A1:A5").Select