如何用VBA让带数据验证（列表）的单元格具备普通表格列的筛选菜单？

可以通过VBA实现这一需求，核心是给带数据验证列表的单元格所在列开启Excel的自动筛选（AutoFilter）功能，就能获得和普通表格列一致的筛选菜单。

实现代码示例 #

Sub AddFilterToValidationCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim targetRng As Range
    
    ' 指定目标工作表，可修改为具体表名如Sheets("数据 sheet")
    Set ws = ActiveSheet
    ' 指定要检查的区域，可缩小范围如ws.Range("A2:D20")
    Set targetRng = ws.UsedRange
    
    ' 遍历区域，筛选出带列表型数据验证的单元格
    For Each cell In targetRng
        If cell.Validation.Type = xlValidateList Then
            If rng Is Nothing Then
                Set rng = cell
            Else
                Set rng = Union(rng, cell)
            End If
        End If
    Next cell
    
    ' 为符合条件的单元格所在列添加自动筛选
    If Not rng Is Nothing Then
        rng.EntireColumn.AutoFilter
        MsgBox "已为带数据验证列表的单元格所在列添加筛选菜单", vbInformation
    Else
        MsgBox "未找到带列表型数据验证的单元格", vbExclamation
    End If
End Sub

代码说明 #

• 脚本会遍历指定区域，自动识别带有列表型数据验证的单元格
• 给这些单元格所在的整列开启自动筛选，对应列就会出现和普通表格列一致的筛选菜单
• 如果只需要给单个指定单元格所在列加筛选，可简化为Range("A1").EntireColumn.AutoFilter（替换A1为目标单元格地址）
• 重复执行代码可切换筛选的开启/关闭状态

内容的提问来源于stack exchange，提问作者Kazeyoshi