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

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