vba AutoFilter 筛选复制指定内容到其他工作表

以下是一个示例代码，可以实现对指定数据范围进行筛选，然后将筛选后的数据复制到另一个工作表中：

Sub FilterAndCopy()

Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim filterRange As Range
Dim copyRange As Range
Dim filterCriteria As String

'设置源工作表和目标工作表
Set wsSource = ThisWorkbook.Worksheets("Sheet1")
Set wsDest = ThisWorkbook.Worksheets("Sheet2")

'设置筛选范围和复制范围
Set filterRange = wsSource.Range("A1:C10")
Set copyRange = wsDest.Range("A1:C1")

'设置筛选条件
filterCriteria = "男"

'应用筛选
filterRange.AutoFilter Field:=1, Criteria1:=filterCriteria

'复制筛选结果到目标工作表
filterRange.SpecialCells(xlCellTypeVisible).Copy Destination:=copyRange

'清除筛选
filterRange.AutoFilter

End Sub

在上面的代码中，我们首先设置了源工作表和目标工作表。然后，我们设置了要筛选的范围和要复制的范围。接下来，我们设置了筛选条件，这里是“男”。然后，我们应用了筛选，并将筛选结果复制到目标工作表中。最后，我们清除了筛选，以便下一次使用。