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

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