使用VBA复制工作簿和筛选

Sub CopyWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    
    ' 新建目标工作簿
    Set targetWorkbook = Workbooks.Add
    
    ' 复制源工作簿的所有工作表到目标工作簿
    sourceWorkbook.Sheets.Copy After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
    
    ' 关闭源工作簿，保存更改
    sourceWorkbook.Close SaveChanges:=False
    
    ' 保存目标工作簿
    targetWorkbook.SaveAs "目标工作簿路径"
    
    ' 关闭目标工作簿
    targetWorkbook.Close SaveChanges:=False
End Sub

Sub FilterData()
    Dim dataRange As Range
    
    ' 设置数据范围
    Set dataRange = Worksheets("Sheet1").Range("A1:D10")
    
    ' 清除已有筛选
    dataRange.AutoFilter
    
    ' 筛选条件
    dataRange.AutoFilter Field:=1, Criteria1:="条件1"
    ' 可以添加多个筛选条件，例如：
    ' dataRange.AutoFilter Field:=2, Criteria1:="条件2"
    
    ' 复制筛选结果到新的工作表
    dataRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Sheet2").Range("A1")
End Sub