在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