如何使用vba将excel表格中指定筛选的内容保存为新工作簿

你可以使用下面的 VBA 代码来实现：

Sub SaveFilteredData()

    Dim rng As Range
    Dim newWB As Workbook
    Dim newWS As Worksheet
    Dim filterCriteria As String
    
    '设置筛选条件
    filterCriteria = "筛选条件"
    
    '应用筛选
    ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:=filterCriteria
    
    '复制筛选后的数据到新工作表
    Set rng = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
    Set newWB = Workbooks.Add
    Set newWS = newWB.Sheets(1)
    rng.Copy newWS.Range("A1")
    
    '保存新工作簿
    newWB.SaveAs "新工作簿的文件路径"
    
    '关闭新工作簿和筛选
    newWB.Close False
    ActiveSheet.AutoFilterMode = False
    
End Sub

在代码中，你需要将“筛选条件”替换为你要筛选的内容。同时，你需要将“新工作簿的文件路径”替换为你想要保存新工作簿的文件路径。执行该 VBA 代码后，会根据指定的筛选条件将符合条件的数据复制到新工作表，并将其保存为一个新的工作簿。