根据最后一行在Excel中select多行

我有一段代码，根据列KEg中的最后一个数据从我的表中select整个行，如果我有第5到第10行填充，它将select第10行。

我如何获得代码从第5行一直到最后一行，如下定义的多行？

谢谢

Sub selectlastrow() Dim lastrow As Long Dim report As Worksheet Set report = Excel.ActiveSheet Sheets("Risks").Select lastrow = Range("K5:K48").End(xlDown).Row report.Cells(lastrow, 2).EntireRow.Select End Sub 

去跟随：

我被困在如何构build一段代码：

1. 循环显示以673开头的所有工作表（例如，673：绿色，673：蓝色）

2. 从第5行select这些工作表中的数据，直到最后一行有数据代码为止

    With report .Range(.Cells(5, "K"), .Cells(.Rows.Count, "K").End(xlUp)).EntireRow.Select End With 

3. select“颜色”工作表
4. 将行粘贴到下一个可用空白行。 可能会有多达40/50的工作表将数据粘贴到“颜色”工作表，所以我需要将数据添加到下一个可用的行。

先谢谢你。

Answer 1

使用结合了Range对象和Range.Cells属性的单元格引用。

 with report .Range(.Cells(5, "K"), .Cells(.rows.count, "K").End(xlUp)).EntireRow.Select end with 

Answer 2

您有多种方式来select一系列的行。 最简单的根据您可用的数据：

 report.Range("K5").resize(lastrow - 4).EntireRow.Select 

Answer 3

 Report.Range("B5:B" & lastrow).EntireRow.Select 

Answer 4

根据你的代码实际做了什么，只需要replacerowRange的expression式rowRange 。

 Dim rowRange As Range Set rowRange = Range("a1:A8").Rows.EntireRow rowRange.Select 

瞧！