可通过VBA、ActiveX控件或第三方插件实现Excel下拉菜单的模糊搜索。1、使用VBA监听输入，动态筛选数据验证列表；2、用ComboBox控件设置RowSource并编写Change事件实现自动过滤；3、借助Kutools等插件启用“超级下拉列表”直接添加搜索功能，提升数据输入效率。
如果您在使用Excel时希望提高数据输入效率，但手动选择下拉菜单中的选项耗时且容易出错，可以通过设置使下拉菜单支持模糊搜索输入。这样在输入部分内容时即可快速匹配到对应选项。
本文运行环境：Dell XPS 13，Windows 11
一、使用数据验证结合VBA实现模糊搜索
通过编写VBA代码监听单元格的输入行为，可以在用户键入部分文字时动态筛选下拉列表中符合条件的项目，并自动完成填充或提示。
1、按Alt + F11打开VBA编辑器，插入一个新模块。
2、复制以下代码到模块中：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim rng As Range
Set rng = Me.Range("A:A") ' 修改为实际下拉列
If Not Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
str = Target.Value
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=FILTER(ListSource,""ISNUMBER(SEARCH(""" & str & """,ListSource))"")"
End With
Target.Value = str
End If
Application.EnableEvents = True
End Sub
3、确保已定义名为“ListSource”的命名区域，包含原始下拉数据源。
4、保存并关闭VBA编辑器，返回工作表测试输入效果。
二、利用ActiveX控件ComboBox模拟下拉搜索
使用Excel内置的ComboBox控件替代标准的数据验证下拉框，可直接支持输入过滤和自动补全功能。
1、切换到“开发工具”选项卡，点击“插入”，选择“Combo Box (ActiveX 控件)”。
2、在工作表中绘制ComboBox控件，右键单击它并选择“属性”。
3、设置其RowSource属性为数据源范围，例如Sheet1!$B$1:$B$100。
4、双击控件进入VBA编辑模式，添加Change事件代码：
Private Sub ComboBox1_Change()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim filterRange As Range
Set filterRange = ws.Range("B1:B100") ' 数据源范围
Dim inputStr As String
inputStr = Me.ComboBox1.Text
If Len(inputStr) > 0 Then
Me.ComboBox1.List = Application.WorksheetFunction.Filter(filterRange, IsNumber(Search(inputStr, filterRange)))
End If
End Sub
5、退出设计模式后，在ComboBox中输入字符即可看到实时筛选结果。
三、借助第三方插件实现免编程模糊搜索
某些Excel增强插件如Kutools for Excel提供了原生不支持的功能，包括下拉列表的智能搜索与自动提示。
1、下载并安装Kutools for Excel，确保其在Excel加载项中启用。
2、选中需要添加模糊搜索的单元格区域。
3、点击Kutools选项卡下的“数据”组，选择“超级下拉列表”功能。
4、在弹出窗口中设定数据源范围，并勾选“启用搜索”选项。
5、确认设置后，该单元格的下拉箭头将变为可搜索模式，输入关键字即显示匹配项。
