如果你维护过一份成百上千行的产品清单一定会对 Excel 的“数据有效性”下拉菜单又爱又恨它能限制输入范围但选项一多找起来就非常痛苦。这个项目的目标很简单——在旁边输入一个关键词原本几百个选项的下拉菜单自动被过滤成少数几个匹配项选起来又快又准。整个过程不需要手动刷新也不影响正常录入靠的就是一组 VBA 事件和动态名称配合。这篇文会把这条技术路线完整展开。你会看到三种实现层级第一层纯公式动态下拉适合小数据量第二层 VBA 事件 动态数据有效性是我日常的主力方案第三层 UserForm 搜索窗体适合上万行数据和强交互场景。每一层都会写清楚步骤、代码和坑照着复制就能用。1. 先想清楚关键词筛选下拉到底要解决什么问题1.1 原生数据有效性下拉的三大痛点Excel 自带的数据有效性Validation本质上是给单元格设定一个“允许值范围”。引用一段区域作为列表来源用户点单元格右侧的箭头就能选择。这个机制在选项不超过二十个时非常舒服一旦选项变多问题马上暴露。第一个痛点是查找效率急剧下降。我做过一个两千多行客户名称的录入表打开下拉列表后鼠标要在一长串名称里来回滚动。视觉疲劳只是小事真正的风险是选错——名称相似的两家公司比如“某贸易有限公司”和“某商贸有限公司”在小字号的下拉框里很难分辨。第二个痛点是原生下拉没有任何过滤能力。你不能输入“某某”让列表自动收窄也不能按首字母跳转所有选项都是平铺的。第三个痛点是数据有效性不能依赖其他单元格动态变化除非你用名称或公式做来源否则列表内容永远是固定的。如果你给这个场景加上一个“辅助关键词单元格”让下拉列表的来源跟着关键词变化问题就迎刃而解。这就是“根据关键词实时筛选自动生成下拉菜单”的本质把“输入关键词”和“下拉列表更新”两个动作串联起来让用户只看到匹配项。1.2 三条技术路线怎么选我在不同项目里分别用过三种实现方式它们各有边界条件不能简单说谁更好。实现方案实现难度实时性数据量上限适用场景纯公式 动态名称低零代码一般千行以内数据源有序、匹配项连续数组公式 辅助列中需数组公式高千行以内匹配结果精确但表格结构复杂VBA 事件 动态数据有效性中高需基本 VBA高几万行日常使用最推荐UserForm 搜索窗体高需窗体事件最高几十万行强交互、录入频繁我的选型逻辑很直接不是所有同事都接受 VBA 宏文件也不是所有场景都需要实时搜索。如果只是几十个固定选项并且数据源按字母排序、匹配项天然连续纯公式方案零维护成本。但只要你需要在“上千行原始数据”里做“包含式模糊筛选”匹配项几乎不可能连续纯公式就撑不住老老实实上 VBA。至于 UserForm那是给追求极致录入体验的场景准备的熟练以后我反而用得最多。2. 纯公式实现不写代码也能让下拉跟随关键词变化2.1 数据源与输入单元格的布局设计先看这个方案的基本布局。假设工作表“数据源”里存原始选项A 列是完整列表A1 放标题数据从 A2 开始。工作表“录入”里设置两个关键单元格B2 是关键词输入单元格B3 是带数据有效性的下拉单元格。布局建议这样B2 用浅黄色填充作为提示旁边加一个批注或说明文字“输入关键词后点击 B3 的下拉箭头查看过滤结果”。B3 的数据有效性来源我们先不设置等名称定义好后再填。这样做有个体验前提用户要先在 B2 输入关键词再去 B3 点下拉。多了一个步骤换来的是列表清爽。对于需要严格规范录入的表格来说这种“先筛选后选择”的交互比裸下拉更高效。2.2 用 OFFSET COUNTIF 定义动态名称纯公式方案最核心的是定义一个动态名称让数据有效性来源随关键词变化。打开“公式”选项卡进入“名称管理器”新建一个名称比如就叫“筛选列表”引用位置填OFFSET(数据源!$A$1, MATCH(*录入!$B$2*, 数据源!$A$2:$A$1000, 0), 0, COUNTIF(数据源!$A$2:$A$1000, *录入!$B$2*), 1)这个公式拆开来看很清晰MATCH 负责找到第一个包含关键词的行它在数据源 A2:A1000 范围内查找返回的是相对位置序号。比如第一个匹配项在 A5MATCH 返回 4OFFSET 从 A1 向下偏移 4 行正好到 A5。COUNTIF 统计包含关键词的非空单元格数量作为 OFFSET 返回区域的高度。整体效果就是从第一个匹配项开始向下取“匹配数量”行这些行就构成动态下拉的数据源。设置完成后在 B3 的数据有效性里选择“序列”来源填入筛选列表。此时把 B2 清空B3 下拉会显示全部数据源在 B2 输入“苹果”B3 下拉就只剩下包含“苹果”的项。但你必须知道这个公式的硬伤。OFFSET 是按“连续区域”返回的它从第一个匹配项开始向下截取指定高度。如果数据源里匹配项不连续比如 A2 是“苹果”、A3 是“香蕉”、A4 是“苹果汁”关键词“苹果”的 MATCH 会命中 A2COUNTIF 统计结果是 2OFFSET 返回 A2:A3 两行。下拉里会出现“香蕉”而真正的匹配项“苹果汁”在 A4 反而被漏掉。所以纯公式 OFFSET 方案只适合数据源经过排序、匹配项确实连续的场景。2.3 数组公式辅助列解决“不连续匹配”问题如果你离不开纯公式又想精确过滤不连续匹配项可以退一步用数组公式把匹配结果逐个提取到辅助列再让数据有效性引用辅助列。在“录入”表 D2 单元格输入下面的数组公式IFERROR(INDEX(数据源!$A$2:$A$1000, SMALL(IF(ISNUMBER(SEARCH($B$2, 数据源!$A$2:$A$1000)), ROW(数据源!$A$2:$A$1000)-1), ROW()-1)), )输完后按住 CtrlShiftEnter公式两侧出现花括号才算成功。这个公式的逻辑是用 IF 判断数据源区域里每个单元格是否包含 B2 的关键词如果包含就返回它在区域中的序号不包含就返回 FALSE。SMALL 从这些序号中取出第 1 小、第 2 小……一直到第 N 小INDEX 按序号取回真正的值。IFERROR 负责兜底当序号用完时返回空文本。把 D2 公式往下填充到 D100 左右预留足够空行然后设置 B3 的数据有效性来源为$D$2:$D$100。这样无论匹配项在哪里都能被精准提取。这个方案的代价是数组公式会随数据量增大越来越慢。每次 B2 内容变化工作簿里所有数组公式都会重新计算。如果数据源超过三千行或者辅助列下拉范围过大Excel 会有明显卡顿。我现在很少用这个方案但如果你无法接受任何 VBA它仍然是一个可行的备选。2.4 纯公式方案的适用边界我的建议是纯公式方案放在小型静态清单里最合适。例如一个团队内部几十个固定项目名、几百个渠道编号数据源稳定且用户对 VBA 宏敏感。这时 OFFSET 方案或辅助列方案都够用既没有加载宏的权限问题也不会触发 Excel 的安全警告。可一旦进入真实业务数据成千上万行的新增、删除、排序纯公式的逻辑维护成本会迅速上升。我经历过一个项目最初用 OFFSET 方案做了个备件编号下拉运行几个月后数据源被同事加了分类汇总行MATCH 的行偏移当场错乱下拉列表莫名其妙选到汇总行。排查了快一个小时才定位到是数据源结构不满足“连续”约束。从那时起我遇到数据源可能在生命周期内变化的场景一律推荐 VBA 事件方案。3. VBA 事件方案实时筛选 动态重置数据有效性3.1 工作表布局与模块划分VBA 方案是我现在的主力。它的核心思路是监听关键词单元格的修改事件一旦用户输入或更改关键词代码立即遍历数据源筛选出所有匹配项写入一个隐藏辅助区然后重新设置目标单元格的数据有效性列表。先说工作表布局。我一般准备三张表第一张“数据源”放原始选项A 列是主数据第二张“录入”放操作界面B2 是关键词输入单元格B3 是数据有效性下拉单元格第三张“辅助区”专门存放筛选结果这张表可以设置为隐藏但 VBA 里仍能正常访问。这样设计的好处是把噪声隔离辅助区不会出现在用户眼前也不会误占用“录入”表的行列。模块划分也很简单。只需要在“录入”表的代码区写一个 Worksheet_Change 事件过程不需要额外插入模块。事件过程会自动响应 B2 单元格的修改这是 Excel 原生提供的工作表级事件。3.2 完整代码Worksheet_Change 一键驱动把下面这段代码粘贴到“录入”工作表代码区。粘贴方式右键“录入”标签选择“查看代码”在打开的 VBA 编辑器中把代码粘贴进去按下 AltQ 回到 Excel。Private Sub Worksheet_Change(ByVal Target As Range) Dim keyword As String Dim srcWs As Worksheet, auxWs As Worksheet Dim dataArr As Variant, results() As Variant Dim lastRow As Long, i As Long, cnt As Long 只在关键词输入单元格变化时执行 If Target.Address $B$2 Then Application.EnableEvents False Set srcWs ThisWorkbook.Worksheets(数据源) Set auxWs ThisWorkbook.Worksheets(辅助区) 读取关键词并清理前后空格 keyword Trim(CStr(Target.Value)) 数据源一次性读入数组避免逐格循环 lastRow srcWs.Cells(srcWs.Rows.Count, 1).End(xlUp).Row If lastRow 2 Then auxWs.Range(A2:A1000).ClearContents With Range(B3).Validation .Delete .Add Type:xlValidateList, Formula1:辅助区!$A$2:$A$2 .InCellDropdown True End With Application.EnableEvents True Exit Sub End If dataArr srcWs.Range(A2:A lastRow).Value 预留最大数量级的结果数组 ReDim results(1 To UBound(dataArr, 1), 1 To 1) cnt 0 For i 1 To UBound(dataArr, 1) If Len(Trim(dataArr(i, 1))) 0 Then If keyword Then cnt cnt 1 results(cnt, 1) dataArr(i, 1) Else 包含匹配忽略字母大小写 If InStr(1, dataArr(i, 1), keyword, vbTextCompare) 0 Then cnt cnt 1 results(cnt, 1) dataArr(i, 1) End If End If End If Next i 重写辅助区 auxWs.Range(A2:A1000).ClearContents If cnt 0 Then auxWs.Range(A2).Resize(cnt, 1).Value results End If 重新设置数据有效性 With Range(B3).Validation .Delete .Add Type:xlValidateList, Formula1:辅助区!$A$2:$A$ (cnt 1) .InCellDropdown True .ShowError False End With Application.EnableEvents True End If End Sub这段代码有几个关键点需要展开讲。3.3 代码拆解数组缓存、InStr 匹配、Validation 重设第一段Application.EnableEvents False不是可有可无的防御是防止递归事件的关键开关。工作表事件里如果你修改了辅助区单元格、又重设了数据有效性这些操作本身也可能触发 Workbook 的 Change 事件。虽然代码里有Target.Address $B$2的判断能挡掉大部分但 VBA 编辑器里任何被拦截的异常都可能导致事件状态陷入紊乱。所以事件过程第一行关闭事件响应、处理完恢复是最稳妥的保险。数据源读取用的是srcWs.Range(A2:A lastRow).Value一次性读入数组。为什么不用For Each或逐格Cells(i,1).Value因为单元表格对象是 COM 边界每次取值都要跨进程调用单次看不出差别上万行时逐格循环能慢到让人崩溃。先取数组再做内存循环速度至少提升一个数量级。这是 VBA 性能优化最基本的常识也是我踩过逐格循环坑之后形成的习惯。匹配逻辑用InStr(1, 数据, 关键词, vbTextCompare) 0判断是否包含。这里有个细节vbTextCompare表示忽略大小写。对于英文编号、产品代码这类数据这是必要的。如果你希望严格区分大小写改用vbBinaryCompare即可。另外 InStr 是 VBA 内置函数不会把*、?当通配符处理这是它比工作表函数SEARCH更安全的地方。后面我会专门讲这个坑。写结果时我先把匹配项放进二维数组results(cnt, 1)再整体赋值给辅助区单元格。整体赋值的好处同样是减少单元格访问次数。需要注意results数组大小是数据源总行数但Resize(cnt, 1)只把前 cnt 行写进去多出来的空数组元素不会污染目标区域因为区域高度已经限制为 cnt。辅助区每次先ClearContents再写新结果避免上次残留数据混进新的下拉列表。重设数据有效性是另一个高频踩坑点。Excel 不允许你在一个已经有 Validation 的单元格上直接覆盖设置必须先用.Delete删除旧校验再用.Add添加新校验。Formula1里写的是辅助区!$A$2:$A$拼接(cnt 1)如果 cnt 是 3来源就是 A2:A4刚好是三条数据。如果 cnt 为 0来源变成 A2:A2也就是一个空单元格Excel 不会报错但下拉箭头点开是空的。我特意保留这个空引用而不是让 Validation 来源指向无效区域因为空列表总比报错弹窗友好。ShowError False也是我强烈建议打开的选项。如果关闭数据有效性时没有关 ShowError用户一旦在 B3 输入了一个不在下拉列表中的值Excel 会弹一个“此值与此单元格定义的数据验证限制不匹配”的错误提示。在“先筛选后选择”的场景里这个弹窗毫无意义只会吓到用户。但如果你需要严格控制录入范围希望禁止任何非列表输入那 ShowError 应保持 True同时配合 ErrorTitle 和 ErrorMessage 提供友好提示。3.4 这个方案为什么要关掉 EnableEvents在事件代码里关闭事件响应很多人只是照着做不理解为什么要这样。我用一个真实场景说明某次我的代码里漏了这一句运行到重设 Validation 那行时Excel 触发了另一层 Change 事件。那个事件里又去读 B3 的 Validation 属性结果读到的是一个不存在或正在变更的对象VBA 直接报错“运行时错误 5”。错误弹出后所有后续代码中断更糟糕的是当时 EnableEvents 还停在 False 状态导致整张工作表后续所有 Change 事件都不再触发。用户在单元格里输入任何内容都毫无反应还以为是卡死了。诊断这种灵异问题只需要一条捷径在立即窗口敲Application.EnableEvents True事件立刻恢复。但恢复之前你丢失的可能是所有事件期间的数据变更记录。所以我的习惯是事件过程第一行关事件、最后一行开事件中间任何分支都必须保证有开事件的退出路径。上面的代码里lastRow 2时我在Exit Sub前先把事件打开就是这个原因。写事件代码时这条法则比任何功能都重要。4. 高级方案UserForm 搜索窗 ListBox 实时结果4.1 为什么不用 ActiveX ComboBox有人第一时间想到的可能是放一个 ActiveX ComboBox毕竟它在单元格上就有下拉框形态。但 ComboBox 在 Change 事件里重新填充 List 时会破坏正在进行的输入状态光标会跳到列表末尾用户输入的“果汁”两个字可能被截断体验非常糟糕。而且 ComboBox 的自动补全只支持“以输入字符开头”的顺序匹配不支持“包含”匹配这跟我们的需求不符。真正顺手的形态是 UserForm 里的文本框加列表框组合TextBox 接收关键词输入ListBox 实时显示过滤结果用户双击或回车把值写回目标单元格。这本质上就是一个轻量级搜索框交互最自然。4.2 窗体布局与控件属性设置打开 VBA 编辑器插入一个用户窗体命名为“SearchForm”。添加一个 TextBox命名为 TextBox1一个 ListBox命名为 ListBox1两个命令按钮CommandButton1 为“选择”CommandButton2 为“取消”。把 ListBox 的 ColumnCount 设为 1、IntegralHeight 设为 True、ListStyle 设为 fmListStylePlain。如果想要多列显示可以后续扩展 ColumnCount 和 ColumnWidths让第一列显示编号、第二列显示名称。窗体的初始化事件里我会把整个数据源读入模块级数组缓存。这一步同样是为了性能。如果每次输入一个字符都重新读一遍工作表的几千行区域够慢但缓存到数组后每次 TextBox1_Change 只做内存循环刷新速度非常快。4.3 完整代码加载缓存、实时过滤、双击选择在窗体代码模块写入Dim dataCache() As String Private Sub UserForm_Initialize() Dim srcWs As Worksheet Dim lastRow As Long Dim i As Long Set srcWs ThisWorkbook.Worksheets(数据源) lastRow srcWs.Cells(srcWs.Rows.Count, 1).End(xlUp).Row ReDim dataCache(1 To lastRow - 1) For i 2 To lastRow dataCache(i - 1) srcWs.Cells(i, 1).Value Next i TextBox1.Text Call FilterItems End Sub Private Sub TextBox1_Change() Call FilterItems End Sub Private Sub ListBox1_DblClick(ByVal Cancel As Boolean) Call SelectItem End Sub Private Sub CommandButton1_Click() Call SelectItem End Sub Private Sub CommandButton2_Click() Unload Me End Sub Sub FilterItems() Dim keyword As String Dim i As Long keyword Trim(TextBox1.Text) ListBox1.Clear For i 1 To UBound(dataCache) If keyword Or InStr(1, dataCache(i), keyword, vbTextCompare) 0 Then ListBox1.AddItem dataCache(i) End If Next i If ListBox1.ListCount 0 Then ListBox1.ListIndex 0 End If End Sub Sub SelectItem() Dim selCell As Range Set selCell selectedCell If ListBox1.ListIndex 0 Then If Not selCell Is Nothing Then selCell.Value ListBox1.List(ListBox1.ListIndex) End If End If Unload Me End Sub标准模块里放一个启动入口Public selectedCell As Range Sub CallSearchForm() Set selectedCell ActiveCell SearchForm.Show End Sub注意 SearchForm 内部通过标准模块变量selectedCell回写值。因为 UserForm.Show 是模态的弹出后用户无法点击工作表单元格在弹出前用 ActiveCell 记录目标单元格是可靠的。我建议把 CallSearchForm 指定一个快捷键或者配合工作表事件自动弹出。4.4 双击单元格自动呼出搜索窗为了让搜索窗更贴合录入流程可以在“录入”表里做一个 BeforeDoubleClick 事件双击指定列的单元格自动弹出窗体无需手动运行宏Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column 2 And Target.Row 1 Then Cancel True Set selectedCell Target SearchForm.Show End If End Sub把“双击 B 列任意单元格打开搜索窗”变成录入习惯后用户的操作流是双击 B3弹窗输入关键词双击列表值回填。整个过程几秒内完成。这个体验已经接近专业软件的搜索录入框了。5. 实战排雷七个高频问题与排查方法不管哪个方案实际跑起来都会遇到一些困惑。我把这些年在现场踩过的坑和排查方法整理成一张速查表再挑几个重点单独说。问题现象最常见原因解法事件完全不触发修改 B2 数据下拉不更新EnableEvents 被设成 False立即窗口执行Application.EnableEvents True下拉列表不刷新B3 点开还是旧数据Validation 没有重新 Add确认代码执行了 Validation.Delete 和 Add下拉混入无关数据关键词筛选后仍看到不该出现的值OFFSET 连续区域假设不成立改用 VBA 或数组公式辅助列关键词含 * 或 ? 时结果错乱输入星号后下拉全空或异常SEARCH/LIKE 把通配符当作特殊字符使用 InStr天然不支持通配符全角半角匹配不上输入半角英文找不到全角数据编码格式不一致StrConv 统一转半角后再比大表卡顿输入一个字符要等几秒逐格循环读取单元格一次性读入数组内存匹配用户输入任意值数据有效性弹错或者失效ShowError 设定不符合预期按需求开启 / 关闭 ShowError5.1 事件为什么不触发事件不触发有两个高频原因。第一个是用户在代码运行中途手动停止了宏导致Application.EnableEvents还停留在 False。这个状态会持续到工作簿关闭期间所有工作表事件全部失效。排查方法很简单VBA 编辑器左下角立即窗口里执行一句?Application.EnableEvents如果返回 False就改成 True。建议在 Workbook_BeforeClose 事件里加一句Application.EnableEvents True作为兜底保险。第二个原因是事件代码写错了地方。Worksheet_Change 必须挂在对应工作表的代码模块里而不是标准模块或 ThisWorkbook 模块。我见过太多人把代码粘到模块 1 里怎么触发都不生效就是这个原因。5.2 下拉列表不刷新、内容错乱Validation 重设不生效多数时候是因为没有先 Delete。如果你直接调用.AddExcel 会报错说该单元格已有数据验证。更隐蔽的情况是Validation 的来源指向了一个名称而名称定义虽然变化了但数据有效性的缓存没有立即重算。遇到这种问题建议代码里显式 Delete 再 Add别指望 Excel 自动刷新。还有一个小坑是辅助区没清干净。我把辅助区范围定为 A2:A1000但实际只写 cnt 行。如果某一次筛选结果是 10 条后一次结果是 5 条而代码中的ClearContents漏了残留的 5 条旧数据就会混在新列表后面。上面的代码已经 Clear 了 A2:A1000范围越大越保险。5.3 通配符、大小写、全半角匹配陷阱用 InStr 做匹配时通配符不会产生副作用这是它的优点。但 InStr 区分英文大小写vbTextCompare可以忽略大小写vbBinaryCompare则严格区分。对产品编号这类数据我倾向忽略大小写因为用户常常记不清字母是大写还是小写。全半角问题更隐蔽。用户从某些系统复制的编码是全角字母比如“”而你表中的数据是半角“AB123”InStr 默认匹配不上。解决方法是统一转换比较前keyword StrConv(keyword, vbNarrow)数据源同样先StrConv(数据, vbNarrow)再匹配。注意vbNarrow不会把中文转成半角只对字母数字和标点生效所以不会破坏中文数据。5.4 万行数据卡顿怎么办当数据源超过一万行即使数组读入内存每次 TextBox 的 Change 事件都会重建整个 ListBox也会有卡顿感。两个优化方向一是加一个最小字符数阈值比如关键词长度小于 2 时不刷新避免输入第一个字母时刷一层、第二个字母又刷一层二是先用 UBound 计算总匹配数如果超过 500 条截断显示并加一行“结果过多请输入更多关键词”。实质上是降低 ListBox 的 AddItem 次数。我给一个实测经验三万行数据纯数组遍历加 ListBox 重建单次耗时大概在几十毫秒到一百毫秒之间肉眼基本无感。但如果你让 ListBox 填充三万个条目的同时又把每一行都读到工作表单元格那就会卡到不能自理。核心原则始终是少碰单元格多走内存。6. 扩展玩法与我的经验取舍6.1 二级联动下拉先选类别再筛项目关键词筛选下拉再往前走一步就是二级联动。比如录入产品时先在 D2 选择“产品大类”然后在 E2 的下拉里只看到该大类下的具体产品。实现逻辑和前面 VBA 方案完全一致只不过关键词不再是用户手工输入而是来自 D2 的单元格值。代码只是把keyword Target.Value改成keyword Range(D2).Value。这种设计比单纯的模糊搜索更符合业务流程因为用户往往知道分类但不知道具体名称。二级联动有个细节必须注意Application.EnableEvents的状态切换因为修改 D2 触发事件、然后修改 E2 的 Validation 时E2 的值变化也有可能触发事件。如果没有关闭事件容易陷入递归调用。我把这个写完以后通常会给 D2 加一个数据有效性级别限制避免用户乱填再给 E2 使用事件动态刷新的 Validation。6.2 多关键词与多列返回如果用户想用多个关键词同时过滤比如“品牌型号”可以在辅助区加一列拼接字段把品牌和型号拼成一个长文本筛选时对这个拼接字段做 InStr 匹配。实际下拉列表仍只显示最终要代入的参数列比如产品编号。多列返回的需求也常见下拉选择产品编号同时希望后面的单元格自动带出产品名称和单价。我现在的做法是在 UserForm 的 ListBox 里直接显示多列选中后一次性把多个值写回一行里的不同单元格。窗体初始化时把数据源的前几列都读入数组ListBox 的 ColumnCount 设为 3ColumnWidths 设为80pt;120pt;60pt选择时按列号取回对应值。这个扩展让录入效率提升非常明显。6.3 我把这套方案用在哪些场景里我实际部署过的场景包括仓储系统的物料编码录入、客户名单筛选、订单模板里的产品型号选择、财务表格里的科目名称匹配。它们共同的特点是数据量大、选项不连续、录入人员并非专业技术人员。这三条正好是纯公式方案最薄弱的场景却是我那套 VBA 事件方案最擅长的战场。我在实际使用中最大的体会是这个工具的核心价值不是“少写代码”而是改变录入口碑。以前录入人员看到上千行的下拉列表会直接放弃现在他们双击单元格就能实时搜索出错率明显下降。写这类工具时我也会刻意保持代码简单让后续维护的人能快速看懂。如果你也要做同样的功能我建议从第三章的 VBA 事件方案开始先跑通逻辑再根据业务需要决定是否升级到 UserForm 方案。把坑提前排掉这个功能就能一直稳定地支棱在表格里。