根据条件复制行范围vba和标题行

Sub CopyRowsByCondition()
    Dim ws As Worksheet
    Dim rngSource As Range
    Dim rngDestination As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rngSource = ws.Range("A1:E10") ' 设置源范围
    Set rngDestination = ws.Range("G1") ' 设置目标范围
    
    ' 清空目标范围
    rngDestination.CurrentRegion.Clear
    
    ' 复制标题行
    rngSource.Rows(1).Copy rngDestination
    
    ' 查找最后一行
    lastRow = rngSource.Rows.Count
    
    ' 遍历源范围，根据条件复制行
    For i = 2 To lastRow
        If rngSource.Cells(i, 1).Value = "条件" Then ' 设置条件
            rngSource.Rows(i).Copy rngDestination.Offset(1) ' 复制行到目标范围
            Set rngDestination = rngDestination.Offset(1) ' 更新目标范围
        End If
    Next i
End Sub