如何使用vba将excel表格中筛选的内容保存成新表

使用 VBA 可以轻松地将 Excel 表格中筛选的内容保存成新表。

以下是一个简单的示例，演示如何使用 VBA 将 Excel 表格中筛选的内容保存成新表：

Sub FilterAndSave()

    ' 定义变量
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim new_ws As Worksheet
    Dim filter_range As Range
    Dim last_row As Long
    
    ' 打开当前工作簿
    Set wb = ThisWorkbook
    
    ' 选择要筛选的工作表
    Set ws = wb.Worksheets("Sheet1")
    
    ' 定义筛选范围并执行筛选操作
    Set filter_range = ws.Range("A1:D10")
    filter_range.AutoFilter Field:=1, Criteria1:="筛选条件"
    
    ' 创建新工作表并将筛选结果复制到新工作表
    Set new_ws = wb.Worksheets.Add
    last_row = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    filter_range.SpecialCells(xlCellTypeVisible).Copy Destination:=new_ws.Range("A1")
    
    ' 关闭自动筛选
    ws.AutoFilterMode = False
    
    ' 保存新工作表并关闭
    new_ws.Name = "筛选结果"
    new_ws.Activate
    ActiveWorkbook.SaveAs Filename:="筛选结果.xlsx", FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    
End Sub

上面的代码中，`Set ws = wb.Worksheets("Sheet1")` 用于选择要筛选的工作表。`Set filter_range = ws.Range("A1:D10")` 定义了筛选范围，可以根据实际情况进行修改。`filter_range.AutoFilter Field:=1, Criteria1:="筛选条件"` 用于执行筛选操作，其中 `Field` 参数表示要筛选的列号，`Criteria1` 参数表示筛选条件。`Set new_ws = wb.Worksheets.Add` 用于创建新工作表，`filter_range.SpecialCells(xlCellTypeVisible).Copy Destination:=new_ws.Range("A1")` 将筛选结果复制到新工作表中。最后，`ActiveWorkbook.SaveAs Filename:="筛选结果.xlsx", FileFormat:=xlOpenXMLWorkbook` 用于保存新工作表为一个新的 Excel 文件。

需要注意的是，上述代码中的 `Sheet1` 和 `筛选条件` 需要根据你的具体情况进行替换。