想要选择具有特定条件的单元格

这是您的代码的可能增强功能（注释中的解释）

Option Explicit

Sub Selectrows()
    Dim lastrow As Long
    Dim cel As Range

    Dim destSht As Worksheet
    Set destSht = Worksheets("myDestinationSheetName") '<-- change "myDestinationSheetName" to your actual destination sheet name

    With Worksheets("mySourceSheetName") ' reference source sheet -  change "mySourceSheetName" to your actual source sheet name
        lastrow = .Range("E" & .Rows.Count).End(xlUp).Row ' get referenced sheet column E last not empty cell row index
        For Each cel In .Range("H4:H" & lastrow).SpecialCells(xlCellTypeFormulas) ' loop through referenced sheet column H cells cointaining formulas from row 4 down to column E las not empty one
            If cel.Value >= 2.5 Then cel.Offset(-1, 0).Resize(3, 1).EntireRow.Copy Destination:=destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1)
        Next
    End With
End Sub

如你所见，我建议

• 用于With .. End With block引用特定对象（Worksheets("mySourceSheetName")在本例中），并在其内部的每个子成员（如 Range、Cells 等）之前使用点 (.) 以确保它们确实属于引用的对象

• 使用对象的SpecialCells()方法Range仅过滤具有“常量”（即不是从公式派生的）内容的单元格

• 使用.Offset()属性来抵消它被调用的范围对象（cel在这种情况下）向上一行和零列

• 使用.Resize()属性将被调用的范围对象（cel.Offset(-1,0)在本例中）扩大到三行高度和一列宽度