Excel筛选后自动求和怎么做？如何快速实现？

作者：佚名|分类：EXCEL|浏览：136|发布时间：2025-04-16 13:46:40

在Excel中，筛选数据是日常工作中非常常见的操作，而自动求和则是数据分析中不可或缺的一环。当我们在筛选数据后，如何快速实现自动求和呢？以下将详细介绍几种方法，帮助您轻松实现筛选后的自动求和。

一、使用“自动求和”功能

1. 打开Excel表格，选中需要进行筛选的数据区域。

2. 点击“开始”选项卡，在“排序和筛选”组中，选择“筛选”。

3. 根据需要筛选的条件，在相应的列中勾选或取消勾选筛选项。

4. 筛选完成后，选中需要求和的列。

5. 点击“开始”选项卡，在“编辑”组中，选择“自动求和”。

6. 在弹出的“自动求和”对话框中，确认求和公式为“SUM”，然后点击“确定”。

7. 此时，筛选后的数据区域将自动显示求和结果。

二、使用公式实现自动求和

1. 在筛选后的数据区域旁边，插入一个新的单元格。

2. 在该单元格中输入公式：`=SUM(FILTER(区域,条件))`。

3. 将公式中的“区域”替换为需要进行筛选的数据区域，将“条件”替换为筛选条件。

4. 按下回车键，即可得到筛选后的自动求和结果。

三、使用VBA实现自动求和

1. 打开Excel，按下“Alt + F11”键，进入VBA编辑器。

2. 在“插入”菜单中选择“模块”，新建一个模块。

3. 在模块代码窗口中，输入以下代码：

```vba

Sub 自动求和()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") '修改为你的工作表名称

Dim sumRange As Range

Set sumRange = ws.Range("A1:B10") '修改为你的数据区域

Dim sumResult As Double

sumResult = Application.WorksheetFunction.Sum(sumRange, ws.Range("A1:B10").AutoFilter.Range)

MsgBox "筛选后的自动求和结果为：" & sumResult

End Sub

```

4. 修改代码中的工作表名称和数据区域，然后关闭VBA编辑器。

5. 在Excel中，按下“Alt + F8”键，选择“自动求和”宏，点击“运行”。

四、快速实现自动求和的技巧

1. 在筛选数据时，使用快捷键“Ctrl + Shift + L”打开“筛选”功能。

2. 在筛选后的数据区域，使用快捷键“Ctrl + Shift + L”再次打开“筛选”，可以快速取消筛选。

3. 在进行筛选和求和操作时，可以先选中需要求和的列，然后点击“开始”选项卡，在“编辑”组中选择“自动求和”，这样可以避免重复操作。