在两个值VBA之间复制行并粘贴到新的工作表循环中

Sub CopyRowsBetweenValues()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    Dim startValue As Variant
    Dim endValue As Variant
    Dim copyRange As Range
    Dim pasteRange As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表名称")
    Set wsDestination = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置起始值和结束值
    startValue = "起始值"
    endValue = "结束值"
    
    ' 获取源工作表的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历源工作表的每一行
    For i = 1 To lastRow
        ' 判断当前行的值是否在起始值和结束值之间
        If wsSource.Cells(i, "A").Value >= startValue And wsSource.Cells(i, "A").Value <= endValue Then
            ' 复制当前行
            Set copyRange = wsSource.Rows(i)
            
            ' 粘贴到目标工作表的下一行
            Set pasteRange = wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Offset(1)
            copyRange.Copy pasteRange
        End If
    Next i
End Sub