Excel VBA -根据两个参数将数据复制到另一个工作表中

Sub CopyData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim parameter1 As String
    Dim parameter2 As String
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源数据")
    Set targetSheet = ThisWorkbook.Sheets("目标数据")
    
    ' 获取参数值
    parameter1 = InputBox("请输入参数1的值：")
    parameter2 = InputBox("请输入参数2的值：")
    
    ' 设置源数据范围
    Set sourceRange = sourceSheet.Range("A1:B10") ' 假设源数据范围是A1:B10
    
    ' 在目标工作表中查找匹配的数据，并复制到目标数据范围
    For Each cell In sourceRange
        If cell.Value = parameter1 And cell.Offset(0, 1).Value = parameter2 Then
            If targetRange Is Nothing Then
                Set targetRange = targetSheet.Cells(1, 1)
            Else
                Set targetRange = targetSheet.Cells(targetRange.Rows.Count + 1, 1)
            End If
            cell.Resize(1, 2).Copy targetRange
        End If
    Next cell
End Sub