如何在VBA中复制基于两列标准的行和粘贴特定数据？

Sub CopyRowsBasedOnCriteria()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim criteriaColumn As Range
    Dim criteriaValue As Variant
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set destinationSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源数据范围
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    Set sourceRange = sourceSheet.Range("A1:B" & lastRow)
    
    ' 设置目标数据范围
    Set destinationRange = destinationSheet.Range("A1")
    
    ' 设置标准列
    Set criteriaColumn = sourceSheet.Range("C1:C" & lastRow)
    
    ' 设置标准值
    criteriaValue = "标准值"
    
    ' 循环遍历源数据范围
    For i = 1 To sourceRange.Rows.Count
        ' 检查标准列中的值是否与标准值匹配
        If criteriaColumn.Cells(i).Value = criteriaValue Then
            ' 复制满足条件的行到目标数据范围
            sourceRange.Rows(i).Copy destinationRange
            ' 移动目标数据范围到下一行
            Set destinationRange = destinationRange.Offset(1)
        End If
    Next i
End Sub