VBA 筛选数据并复制到指定工作表 - 基于多个类别

以下是示例代码，其中将根据'类别1'、'类别2' 和 '类别3' 筛选数据并将其复制到名为'目标工作表' 的工作表中的第 10 行以下。

Sub FilterAndCopy()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim filterRange As Range
    Dim lastRow As Long
    Dim i As Long
    Set wsSource = ThisWorkbook.Worksheets("原始数据")
    Set wsTarget = ThisWorkbook.Worksheets("目标工作表")
    Set filterRange = wsSource.Range("A1:D100") '假设数据存储在 A1:D100 范围内
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1 '确定目标行
    For i = 1 To filterRange.Rows.Count '循环每一行
        If filterRange.Cells(i, 1) = Range("B1").Value And _
            filterRange.Cells(i, 2) = Range("B2").Value And _
            filterRange.Cells(i, 3) = Range("B3").Value Then '根据类别1、2和3筛选数据
            filterRange.Cells(i, 4).Copy Destination:=wsTarget.Range("A" & lastRow) '将数据复制到目标工作表
            lastRow = lastRow + 1 '更新目标行
        End If
    Next i
End Sub

请注意，上述代码仅是示例，您需要根据自己的实际情况进行修改和调整。