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

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

Sub SaveFilteredData()

    Dim rng As Range
    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 newWS = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    rng.Copy newWS.Range("A1")
    
    '重命名新工作表
    newWS.Name = "新表格名称"
    
    '关闭筛选
    ActiveSheet.AutoFilterMode = False
    
End Sub

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