Vba 基于最后一行在excel中选择多行

我有一段代码，它根据K列中的最后一个数据从表中选择整行。例如，如果填充了第5行到第10行，它将选择第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

后续行动：

我一直在思考如何构造一段代码：

循环浏览以数字673开头的所有工作表：（例如673:绿色，673:蓝色）

选择这些工作表中的数据，从第5行一直到最后一行的数据-适用于此的代码为

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

选择“颜色”工作表

将行粘贴到下一个可用的空白行。可能有多达40/50的工作表，将数据粘贴到“颜色”工作表中，因此我需要将数据添加到下一行

---

提前谢谢。

根据您对代码的实际操作，只需替换

行范围内的表达式即可

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

瞧
 根据您对代码的实际操作，只需替换
行范围内的表达式即可

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

瞧
 有多种方法可以选择一系列行。根据您拥有的可用数据：

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

有多种方法可以选择一系列行。根据您拥有的可用数据：

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

使用结合和的单元格引用

使用结合和的单元格引用

fwiw，当你说“K列中的最后一个数据”时，最好是从下往上看，而不是从上往下看。仅供参考-这是最好的做法。我建议大家通读一遍，了解如何直接使用数据。fwiw，当你说“K列中的最后一个数据”时，最好是从下往上看，然后再从上往下看。仅供参考-这是最好的做法。我建议通读一遍，学习如何直接使用数据。