excel筛选后怎么只显示数据

在Excel中筛选后只显示数据，可以通过“高级筛选”、“自动筛选”及“复制筛选结果到新工作表”等方式实现。其中，“高级筛选”功能可以更灵活的设定条件和筛选范围，非常适用于复杂数据筛选需求。

一、自动筛选

1. 如何使用自动筛选

自动筛选是Excel中最常见和最简单的筛选方法。它允许用户快速筛选数据，并且可以通过单击列标题中的下拉箭头来选择不同的筛选条件。

步骤：

选择包含数据的单元格范围。
点击Excel工具栏中的“数据”选项卡。
在“筛选”组中，点击“筛选”按钮。这将为所选范围中的每个列标题添加一个下拉箭头。
单击要筛选的列标题中的下拉箭头，然后选择所需的筛选条件。

2. 自定义筛选条件

在自动筛选中，用户不仅可以使用默认的筛选选项（如按特定值、颜色等），还可以自定义筛选条件。

步骤：

单击筛选箭头，选择“文本筛选”或“数字筛选”。
根据需要选择“等于”、“不等于”、“大于”等条件，并输入相应的值。
点击“确定”应用筛选条件。

二、高级筛选

1. 高级筛选的优势

高级筛选功能比自动筛选更强大，适用于复杂的筛选需求。它允许用户在不同的工作表上筛选数据，并且可以将筛选结果复制到其他位置。

2. 设置高级筛选条件

使用高级筛选时，用户需要在工作表上创建一个条件范围，指定筛选标准。

步骤：

在工作表的空白区域创建一个条件范围。条件范围应包含与数据范围相同的列标题，并在标题下方输入筛选条件。
选择数据范围，点击“数据”选项卡中的“高级”按钮。
在弹出的对话框中，选择“将筛选结果复制到其他位置”。
输入条件范围和目标范围，然后点击“确定”。

3. 示例

假设您有一个包含员工信息的表格，您希望筛选出所有年龄在30岁以上且部门为“销售”的员工。

步骤：

在空白区域输入条件范围，例如：在A1输入“年龄”，在B1输入“部门”，在A2输入“>30”，在B2输入“销售”。
选择包含员工信息的数据范围，点击“数据”选项卡中的“高级”按钮。
选择“将筛选结果复制到其他位置”，输入条件范围A1:B2和目标范围（例如D1），点击“确定”。

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

1. 为什么复制筛选结果

有时候在筛选数据后，您可能希望将筛选结果保存到一个新的工作表中，以便进行进一步分析或共享。这可以通过复制粘贴来实现。

2. 复制筛选结果的步骤

步骤：

使用自动筛选或高级筛选功能筛选出所需数据。
选择筛选结果，右键单击并选择“复制”。
创建一个新的工作表，选择A1单元格，右键单击并选择“粘贴”。

3. 确保复制的数据不包含隐藏行

在复制筛选结果时，确保只复制可见的单元格，以避免将隐藏的行也复制过来。

步骤：

使用自动筛选或高级筛选筛选出所需数据。
选择筛选结果，按下Alt + ; 快捷键，这将只选择可见的单元格。
右键单击并选择“复制”，然后在新的工作表中粘贴。

四、使用VBA自动化筛选过程

1. VBA的优势

通过使用VBA（Visual Basic for Applications），可以自动化筛选过程，提高效率。VBA允许用户编写宏来执行复杂的筛选任务，并将结果保存到新的工作表中。

2. 编写简单的VBA宏

步骤：

打开Excel，按下Alt + F11打开VBA编辑器。
插入一个新模块，并输入以下代码：

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    '应用筛选条件
    ws.Range("A1:C10").AutoFilter Field:=1, Criteria1:=">30"
    ws.Range("A1:C10").AutoFilter Field:=2, Criteria1:="销售"
    '复制筛选结果
    ws.Range("A1:C10").SpecialCells(xlCellTypeVisible).Copy
    ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "FilteredData"
    ThisWorkbook.Sheets("FilteredData").Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub

关闭VBA编辑器，返回Excel，按下Alt + F8运行宏。

3. 扩展VBA宏

可以根据需要扩展VBA宏，例如添加错误处理、动态调整筛选范围等。

Sub AdvancedFilterData()
    On Error GoTo ErrorHandler
    Dim ws As Worksheet
    Dim lastRow As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    '应用筛选条件
    ws.Range("A1:C" & lastRow).AutoFilter Field:=1, Criteria1:=">30"
    ws.Range("A1:C" & lastRow).AutoFilter Field:=2, Criteria1:="销售"
    '复制筛选结果
    ws.Range("A1:C" & lastRow).SpecialCells(xlCellTypeVisible).Copy
    ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "FilteredData"
    ThisWorkbook.Sheets("FilteredData").Range("A1").PasteSpecial Paste:=xlPasteValues
    Exit Sub
ErrorHandler:
    MsgBox "An error occurred: " & Err.Description
End Sub

通过这种方式，用户可以根据具体的需求编写VBA宏，自动化筛选过程并提高工作效率。

五、使用Excel表格功能

1. 创建Excel表格

将数据转换为Excel表格可以自动应用筛选功能，并且在添加或删除数据时，筛选范围会自动更新。

步骤：

选择数据范围。
点击“插入”选项卡，选择“表格”。
确认表格范围并点击“确定”。

2. 使用表格筛选数据

创建表格后，表格标题中会自动添加筛选箭头，用户可以根据需要筛选数据。

六、总结

通过自动筛选、高级筛选、复制筛选结果到新工作表、VBA自动化筛选以及使用Excel表格功能，用户可以灵活地筛选数据并只显示所需信息。这些方法不仅提高了工作效率，还简化了复杂数据处理过程。掌握这些技巧可以帮助用户更好地利用Excel进行数据管理和分析。