如何仅通过单击Excel中的单元格内容来过滤数据？

如何仅通过单击Excel中的单元格内容来过滤数据？

通常，在Excel中，您可以根据需要应用“筛选器”功能来筛选数据。 但是，在本文中，我将讨论如何仅通过单击单元格值来过滤数据。 以以下数据为例，当我双击单元格A2时，将立即过滤基于该单击值的所有相应记录，如下图所示。

只需单击带有VBA代码的单元格值即可过滤数据

只需单击带有VBA代码的单元格值即可过滤数据

在这里，我将提供一个VBA代码供您通过单击单元格来过滤数据，请执行以下操作：

1。 首先，为您的数据指定一个范围名称，请在 名称框，然后按 输入 键，请参见屏幕截图：

2。 右键单击要过滤的工作表标签，方法是单击单元格，然后选择 查看代码 从上下文菜单中，然后在打开的 Microsoft Visual Basic应用程序 窗口，将以下代码复制并粘贴到空白模块中：

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

备注：在上面的代码中， 我的数据 是您为数据范围创建的范围名称，请根据需要进行更改。

3。 然后保存并关闭代码窗口，现在，当您双击要过滤掉的数据范围的任何单元格时，其对应的记录将被过滤，如下面的屏幕截图所示：

更多相关文章：

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

如何通过单击Excel中的标题对列数据进行排序？