核心代码为,range("A1").entireRow.Select
以下是几个例子的代码。
Sub selectRows()
'连续整行选定
Range("A1:A10").EntireRow.Select
'选择不连续多行
Range("A1,A3,A5:A8").EntireRow.Select
'选择连续有数据的行
r = ActiveSheet.Cells(Rows.Count, 1).End(3).Row
Range("A1:A" & r).EntireRow.Select
End Sub