如何通过点击Excel中的单元格内容来筛选数据？

通常，在Excel中，您可以根据需要使用“筛选”功能来筛选数据。但是，在本文中，我将介绍如何通过点击单元格值来筛选数据。以下面的数据为例，当我双击单元格A2时，所有基于该点击值的对应记录都会立即被筛选出来，如下截图所示。

通过VBA代码点击单元格值筛选数据

通过VBA代码点击单元格值筛选数据

在这里，我将为您提供一个VBA代码，通过点击单元格来筛选数据，请按照以下步骤操作：

1. 首先，为您的数据指定一个区域名称，请在 名称框中输入一个区域名称，然后按 Enter键，见截图：

2. 右键单击您要通过点击单元格进行筛选的工作表标签，然后从上下文菜单中选择“查看代码”，在打开的 Microsoft Visual Basic for Applications窗口中，复制并粘贴以下代码到空白模块中：

VBA代码：通过点击单元格值筛选数据：

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    Dim rgTable As Range
    Dim rgData As Range
    Dim xColumn As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    Set rgTable = Range("mydata")
    With rgTable
        Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
            xColumn = ActiveCell.Column - .Column + 1
            If ActiveSheet.AutoFilterMode = False Then
                .AutoFilter
            End If
            If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
                .AutoFilter Field:=xColumn
            Else
                .AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
            End If
        End If
    End With
    Set rgData = Nothing
    Set rgTable = Nothing
    Application.ScreenUpdating = True
End Sub

注意：在上述代码中，mydata是为您数据区域创建的区域名称，请根据需要进行更改。

3. 然后保存并关闭代码窗口，现在，当您双击要筛选出的数据区域中的任何单元格时，其对应的记录将被筛选出来，如下截图所示：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

更多相关文章：

如何通过点击单元格来更改单元格值？

如何通过点击标题对列数据进行排序？