excel中筛选后怎么变色

在Excel中筛选后变色的方法包括使用条件格式、使用VBA代码、应用筛选工具等。 其中，使用条件格式是最直观和易于掌握的方法，通过设置条件格式规则，可以让筛选后的数据自动变色。接下来，我们将详细展开条件格式的使用方法，并探讨其他几种方法的应用。

一、使用条件格式

条件格式是Excel中一个强大的功能，可以根据单元格的内容或其位置来自动改变单元格的格式。以下是详细步骤：

1.1 创建条件格式规则

选择数据范围：首先，选择你想要应用条件格式的数据范围。
打开条件格式窗口：点击“开始”选项卡，然后选择“条件格式”->“新建规则”。
设置条件：在新建规则窗口中，选择“使用公式确定要设置格式的单元格”。
输入公式：输入筛选条件的公式。例如，如果你想要筛选并变色所有大于某个值的单元格，可以输入 =A1>10。
设置格式：点击“格式”，选择所需的颜色或其他格式设置。
应用规则：点击“确定”完成设置。

1.2 示例应用

假设你有一列数字，你想让所有大于50的数字在筛选后变成红色背景。你可以按照以下步骤操作：

选择数据范围：假设你的数据在A列，从A1到A100。
创建规则：按照上述步骤，输入公式 =A1>50。
设置格式：选择红色背景。
应用规则：点击“确定”完成。

这样，当你筛选数据时，所有大于50的单元格将自动变色为红色背景。

二、使用VBA代码

除了条件格式，VBA（Visual Basic for Applications）也是一种强大的工具，可以实现更复杂的操作。以下是使用VBA代码来实现筛选后变色的方法：

2.1 编写VBA代码

打开VBA编辑器：按下 Alt + F11 打开VBA编辑器。
插入模块：在左侧的项目资源管理器中，右键点击你的工作簿，选择“插入”->“模块”。

输入代码：在新模块中输入以下代码：

Sub FilterAndColor()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称
    Dim rng As Range
    Set rng = ws.Range("A1:A100") ' 替换为你的数据范围
    ws.AutoFilterMode = False
    rng.AutoFilter Field:=1, Criteria1:=">50" ' 设置筛选条件
    Dim cell As Range
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        cell.Interior.Color = RGB(255, 0, 0) ' 设置变色为红色
    Next cell
    ws.AutoFilterMode = False ' 取消筛选
End Sub

运行代码：按下 F5 运行代码，或在Excel中按下 Alt + F8，选择“FilterAndColor”然后点击“运行”。

2.2 代码解释

Set ws = ThisWorkbook.Sheets("Sheet1")：选择工作表。
Set rng = ws.Range("A1:A100")：选择数据范围。
rng.AutoFilter Field:=1, Criteria1:=">50"：应用筛选条件，筛选大于50的单元格。
For Each cell In rng.SpecialCells(xlCellTypeVisible)：遍历筛选后的可见单元格。
cell.Interior.Color = RGB(255, 0, 0)：将可见单元格的背景颜色变为红色。

三、使用筛选工具

在Excel中，使用筛选工具可以快速筛选和变色数据。虽然这个方法不像条件格式和VBA代码那样自动化，但对于一些简单的操作来说已经足够。

3.1 手动筛选和变色

选择数据范围：选择你想要筛选的数据范围。
应用筛选：点击“数据”选项卡，然后选择“筛选”。
设置筛选条件：点击列标题上的筛选按钮，设置筛选条件。例如，大于50。
手动变色：筛选后，选择所有可见单元格，然后右键选择“设置单元格格式”，选择你想要的颜色。

3.2 优缺点

使用筛选工具的优点是操作简单，适用于小范围数据的快速筛选和变色。缺点是需要手动操作，不能自动更新。

四、综合应用

在实际应用中，常常需要结合多种方法来达到最佳效果。例如，可以使用条件格式来实现自动变色，结合VBA代码实现更加复杂的数据处理，再使用筛选工具进行快速手动筛选。

4.1 实际案例

假设你有一个包含学生成绩的工作表，你想要筛选出所有成绩大于90的学生，并将其背景变为绿色，同时自动计算这些学生的平均成绩。

使用条件格式变色：按照上述条件格式步骤，设置筛选条件为 =A1>90，背景颜色为绿色。

使用VBA代码计算平均成绩：

Sub FilterAndCalculateAverage()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim rng As Range
    Set rng = ws.Range("A1:A100")
    ws.AutoFilterMode = False
    rng.AutoFilter Field:=1, Criteria1:=">90"
    Dim cell As Range
    Dim sum As Double
    Dim count As Integer
    sum = 0
    count = 0
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        sum = sum + cell.Value
        count = count + 1
    Next cell
    ws.AutoFilterMode = False
    If count > 0 Then
        MsgBox "Average score of students with grades above 90: " & (sum / count)
    Else
        MsgBox "No students with grades above 90."
    End If
End Sub

运行代码：运行上述代码，将自动筛选成绩大于90的学生，并计算其平均成绩。

五、总结

在Excel中筛选后变色的方法有多种，包括使用条件格式、使用VBA代码、应用筛选工具等。每种方法都有其优缺点，可以根据实际需求选择合适的方法。条件格式适合简单的自动变色，VBA代码适合复杂的自动化操作，筛选工具适合快速手动操作。结合多种方法，可以实现更为灵活和高效的数据处理和分析。