怎么保存excel的每一份筛选文件夹

在Excel中保存每一份筛选后的文件夹，可以通过以下步骤实现：使用数据筛选功能、将筛选结果复制到新工作表、使用VBA宏自动化操作。其中，使用VBA宏自动化操作是最为高效的方法，它能大幅减少手动操作的工作量。

一、使用数据筛选功能

首先，需要在Excel中使用数据筛选功能来筛选出需要保存的数据。Excel提供了多种筛选方法，可以根据具体需求灵活选择。

1.1、应用筛选

在Excel中，可以通过“数据”选项卡中的“筛选”按钮来对数据进行筛选。点击筛选按钮后，表格的每一列标题上会出现一个下拉箭头。点击下拉箭头，可以选择需要筛选的条件，例如按某一列的特定值进行筛选。

1.2、筛选条件

筛选条件的设置非常重要。可以根据需要选择多个条件进行组合筛选。例如，可以按日期范围、数值大小、文本内容等多种条件进行筛选。设置好筛选条件后，Excel会自动显示符合条件的数据。

二、将筛选结果复制到新工作表

筛选出所需的数据后，可以将这些数据复制到新的工作表中，以便进行进一步的处理和保存。

2.1、复制筛选结果

在筛选结果中，选中所有可见的单元格，然后右键选择“复制”或者使用快捷键Ctrl+C进行复制。需要注意的是，仅复制可见单元格可以避免将隐藏的数据一并复制。

2.2、粘贴到新工作表

在Excel中创建一个新的工作表，然后在新工作表中选择一个单元格，右键选择“粘贴”或者使用快捷键Ctrl+V进行粘贴。此时，新工作表中将只包含筛选出的数据。

三、使用VBA宏自动化操作

手动复制和粘贴筛选结果虽然简单，但如果需要频繁进行相同的操作，就显得非常繁琐和低效。此时，可以使用VBA宏来自动化这一过程。

3.1、创建VBA宏

在Excel中，按下Alt+F11进入VBA编辑器。选择插入模块，然后在模块中编写VBA代码。例如，下面的代码可以实现将筛选后的数据保存到新的工作表中：

Sub SaveFilteredData()
    Dim ws As Worksheet
    Dim wsNew As Worksheet
    Dim rng As Range
    Dim rngFiltered As Range
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为数据所在的工作表名称
    ' 应用筛选
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="条件" ' 替换为筛选条件
    ' 获取筛选结果
    Set rng = ws.Range("A1").CurrentRegion
    Set rngFiltered = rng.SpecialCells(xlCellTypeVisible)
    ' 创建新工作表
    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsNew.Name = "FilteredData" ' 替换为新工作表名称
    ' 复制筛选结果到新工作表
    rngFiltered.Copy Destination:=wsNew.Range("A1")
    ' 关闭筛选
    ws.AutoFilterMode = False
End Sub

3.2、运行VBA宏

编写好VBA宏后，可以通过VBA编辑器中的“运行”按钮来执行宏。执行宏后，Excel会自动将筛选后的数据复制到新的工作表中，并保存该工作表。

四、保存筛选结果到文件夹

最后一步是将筛选结果保存到特定的文件夹中。

4.1、保存工作簿

在Excel中，可以通过“文件”菜单中的“另存为”选项来保存工作簿。选择保存路径和文件名，然后点击“保存”按钮即可。

4.2、使用VBA宏保存文件

同样，可以使用VBA宏来自动化保存工作簿的过程。例如，下面的代码可以实现将筛选后的数据保存到指定的文件夹中：

Sub SaveFilteredDataToFile()
    Dim ws As Worksheet
    Dim wsNew As Worksheet
    Dim rng As Range
    Dim rngFiltered As Range
    Dim filePath As String
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为数据所在的工作表名称
    ' 应用筛选
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="条件" ' 替换为筛选条件
    ' 获取筛选结果
    Set rng = ws.Range("A1").CurrentRegion
    Set rngFiltered = rng.SpecialCells(xlCellTypeVisible)
    ' 创建新工作表
    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsNew.Name = "FilteredData" ' 替换为新工作表名称
    ' 复制筛选结果到新工作表
    rngFiltered.Copy Destination:=wsNew.Range("A1")
    ' 关闭筛选
    ws.AutoFilterMode = False
    ' 设置保存路径和文件名
    filePath = "C:PathToFolderFilteredData.xlsx" ' 替换为实际的保存路径和文件名
    ' 保存工作簿
    ThisWorkbook.SaveAs filePath
    ' 关闭工作簿
    ThisWorkbook.Close
End Sub

执行该宏后，Excel会自动将筛选后的数据保存到指定的文件夹中，并关闭工作簿。

五、总结

通过以上步骤，可以在Excel中保存每一份筛选后的文件夹。具体操作包括使用数据筛选功能、将筛选结果复制到新工作表以及使用VBA宏自动化这些过程。使用VBA宏不仅可以提高工作效率，还可以减少人为操作的错误。这对于需要频繁进行数据筛选和保存的工作场景尤其适用。希望以上内容能够帮助到你，提高你的工作效率。