Выбор первой и последней строки одновременно в 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, но я 'm kinda заставил изучить его для работы XD (получил вышеупомянутый код Googling). Просто интересно, есть ли метод, который заставит оба выбора быть выделены одновременно. Большое спасибо!

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