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

我真的不需要第一排＆＃39;代码，因为我的数据总是从第1行开始。我应该提到我之前从未学习过VBA，但我有点被迫学习它的工作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

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

1 个答案: