Excel：如何将Filter by Selected Cell's Value添加到快速访问工具栏及获取VBA代码

一、将该功能添加至快速访问工具栏 #

• 点击快速访问工具栏右侧的下拉箭头（小倒三角图标），选择「其他命令」
• 在弹出的「Excel选项」窗口中，左侧选中「快速访问工具栏」，然后在「从下列位置选择命令」的下拉框里选「不在功能区中的命令」
• 在命令列表里找到「按所选单元格的值筛选」，选中后点击中间的「添加」按钮
• 最后点击「确定」，该功能就会出现在快速访问工具栏上

二、对应的VBA代码 #

这个功能是Excel内置命令，VBA里可以直接调用，两种实现方式：

Sub FilterBySelectedCellValue()
    ' 通过右键菜单控件名称调用（仅适用于英文或已对应中文名称的版本）
    Application.CommandBars("Cell").Controls("Filter by Selected Cell's Value").Execute
    
    ' 更通用的方式：使用内置命令ID（不受语言版本影响）
    ' Application.CommandBars.ExecuteMso("FilterBySelectedCellValue")
End Sub

提示：如果你的Excel是中文或其他非英文版本，推荐使用ExecuteMso调用命令ID的方式，避免因控件名称翻译差异导致代码失效

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