如何使用Autofilter - VBA在过滤结果后复制特定列

Sub FilterAndCopy()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")  ' 将"Sheet1"替换为实际的工作表名称
    
    ' 确定要过滤的数据范围
    Set rng = ws.Range("A1:D10")  ' 将"A1:D10"替换为实际的数据范围
    
    ' 启用自动筛选
    rng.AutoFilter
    
    ' 设置过滤条件
    rng.AutoFilter Field:=1, Criteria1:="条件1"  ' 将"条件1"替换为实际的过滤条件
    
    ' 复制特定列的结果
    ws.AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Copy  ' 复制第2列的结果
    
    ' 将结果粘贴到其他位置
    ws.Range("F1").PasteSpecial  ' 将结果粘贴到"F1"单元格，可以根据需要替换为其他位置
    
    ' 关闭自动筛选
    ws.AutoFilterMode = False
End Sub