我来帮你搞定这个双向联动的需求！单向联动用数据验证就能搞定，但双向联动得结合数据验证+动态匹配+VBA事件，下面一步步来实操：

一、先整理你的数据源 #

首先确保你的数据源是清晰的对应关系，比如像这样的结构（假设存在Sheet1的A:B列）：

建议把这个区域转成超级表（选中数据后按Ctrl+T），这样后续新增数据时下拉列表会自动更新，不用手动调整范围。

二、设置基础单向联动的数据验证 #

假设我们把第一个下拉放在Sheet2的D2，第二个放在E2：

1. 选中D2，点击「数据」→「数据验证」→ 允许选「序列」，来源填=UNIQUE(Sheet1!$A:$A)，确定。
   （旧版Excel可以用OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1)来实现动态范围）
2. 选中E2，同样设置数据验证，来源填=UNIQUE(FILTER(Sheet1!$B:$B,Sheet1!$A:$A=Sheet2!$D$2))，确定。

到这一步，单向联动已经实现：选D2的主分类，E2会自动显示对应子分类的可选值。

三、用VBA实现反向联动（核心步骤！） #

要实现选E2的子分类时自动填充D2的主分类，需要给工作表添加Change事件：

1. 右键点击Sheet2的标签（比如「Sheet2」），选择「查看代码」，打开VBA编辑器。
2. 粘贴下面的代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 禁用事件，避免循环触发
       Application.EnableEvents = False
       
       On Error GoTo ErrorHandler ' 错误处理
       
       ' 当第一个下拉（D2）改变时，更新第二个下拉的可选值
       If Target.Address = "$D$2" Then
           If Target.Value <> "" Then
               ' 用FILTER获取对应子分类，转成数组给数据验证
               Dim subItems As Variant
               subItems = Application.WorksheetFunction.Unique(Application.WorksheetFunction.Filter(Sheet1.Range("B:B"), Sheet1.Range("A:A") = Target.Value))
               Me.Range("E2").Validation.Delete
               Me.Range("E2").Validation.Add Type:=xlValidateList, Formula1:=Join(subItems, ",")
               Me.Range("E2").Value = "" ' 清空旧的子分类值
           Else
               ' 如果主分类为空，清空子分类的数据验证和值
               Me.Range("E2").Validation.Delete
               Me.Range("E2").Value = ""
           End If
       End If
       
       ' 当第二个下拉（E2）改变时，自动匹配对应的主分类
       If Target.Address = "$E$2" Then
           If Target.Value <> "" Then
               ' 用XLOOKUP反向查找主分类（旧版Excel用INDEX+MATCH替代）
               Dim mainItem As Variant
               mainItem = Application.WorksheetFunction.XLookup(Target.Value, Sheet1.Range("B:B"), Sheet1.Range("A:A"), "")
               Me.Range("D2").Value = mainItem
           Else
               ' 如果子分类为空，清空主分类值
               Me.Range("D2").Value = ""
           End If
       End If
       
   ErrorHandler:
       ' 恢复事件
       Application.EnableEvents = True
       If Err.Number <> 0 Then
           MsgBox "出错了：" & Err.Description, vbExclamation
       End If
   End Sub
   

3. 保存文件为「.xlsm」格式（因为包含宏，普通xlsx不支持宏功能）。

四、测试验证 #

• 选D2的主分类，E2的下拉列表会自动过滤出对应子分类，且只能选这些值；
• 选E2的子分类，D2会自动填充对应的主分类；
• 清空任意一个下拉，另一个也会同步清空，避免数据不匹配。

注意事项 #

• 如果你的数据源位置、下拉单元格位置不一样，记得修改代码里的单元格引用（比如Sheet1.Range("A:A")、Sheet2.Range("$D$2")这些）；
• 旧版Excel没有XLOOKUP的话，把查找主分类的代码换成：mainItem = Application.WorksheetFunction.Index(Sheet1.Range("A:A"), Application.WorksheetFunction.Match(Target.Value, Sheet1.Range("B:B"), 0))；
• 打开文件时要启用宏，可以把文件放在「信任中心」的信任位置，避免每次都弹出提示。

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