如何让Excel多工作表的Data Validation下拉列表选中项同步？

Excel自带的数据验证功能本身不支持多工作表下拉列表的自动同步，需要借助VBA代码来实现，具体操作步骤如下：

步骤1：打开VBA编辑器 #

按下Alt + F11组合键，打开Excel的VBA编辑器界面。

步骤2：添加工作表变更事件代码 #

在左侧工程资源管理器中，双击任意一个包含目标下拉列表的工作表（比如Sheet1），在右侧代码窗口中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 替换为你的下拉列表所在单元格范围，例如A1:A5
    Dim syncRange As Range
    Set syncRange = Me.Range("A1:A5")
    
    ' 验证修改的单元格是否在同步范围内且为数据验证列表
    If Not Intersect(Target, syncRange) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then
            Dim ws As Worksheet
            ' 遍历工作簿内所有工作表同步值
            For Each ws In ThisWorkbook.Worksheets
                If ws.Name <> Me.Name Then
                    ws.Range(Target.Address).Value = Target.Value
                End If
            Next ws
        End If
    End If
End Sub

步骤3：按需调整代码 #

• 指定同步范围：将代码中的A1:A5替换为你实际的下拉列表所在单元格区域。
• 指定特定工作表同步：如果不需要同步所有工作表，可将遍历所有工作表的代码替换为指定工作表集合，示例如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim syncRange As Range
    Set syncRange = Me.Range("A1:A5")
    
    If Not Intersect(Target, syncRange) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then
            Dim targetSheets As Variant
            ' 替换为需要同步的工作表名称
            targetSheets = Array("Sheet2", "Sheet3", "Sheet5")
            Dim sheetName As Variant
            For Each sheetName In targetSheets
                ThisWorkbook.Worksheets(sheetName).Range(Target.Address).Value = Target.Value
            Next sheetName
        End If
    End If
End Sub

注意事项 #

• 保存文件时需选择**启用宏的工作簿（*.xlsm）**格式，否则宏代码会失效。
• 打开文件时需启用宏，同步功能才能正常运行。
• 若不同工作表的下拉列表单元格地址不对应，需手动调整代码中单元格的映射关系（例如Sheet1的A1对应Sheet2的B2，则需单独指定ws.Range("B2").Value = Target.Value）。

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