如何在 Excel 中同步多个工作表中的下拉列表？

假设您在工作簿中的多个工作表上有下拉列表，其中包含完全相同的下拉项。 现在，您希望跨工作表同步下拉列表，这样一旦您从一个工作表的下拉列表中选择了一个项目，其他工作表中的下拉列表就会自动同步相同的选择。 本文提供了一个 VBA 代码来帮助您解决这个问题。

使用 VBA 代码同步多个工作表中的下拉列表

使用 VBA 代码同步多个工作表中的下拉列表

例如，下拉列表位于五个名为 工作表 1、工作表 2、 ...， 表 5， 要根据Sheet1中的下拉选择同步其他工作表中的下拉列表，请应用以下VBA代码完成。

1.打开Sheet1，右键单击工作表选项卡并选择 查看代码 从右键单击菜单。

2.在 Microsoft Visual Basic应用程序 窗口，将以下 VBA 代码粘贴到 Sheet1（代码） 窗口。

VBA代码：同步多个工作表中的下拉列表

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
    Dim tSheet1 As Worksheet
    Dim tRange As Range
    Dim xRangeStr As String
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    
    xRangeStr = "A2:A11"

    Set tRange = Intersect(Target, Range(xRangeStr))
    If Not tRange Is Nothing Then
        xRangeStr = tRange.Address
        Application.EnableEvents = False
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Application.EnableEvents = True
    End If
    
End Sub

笔记：

3。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

从现在开始，当您从下拉列表中选择一个项目时 表 1， 指定工作表中的下拉列表将自动同步以具有相同的选择。 请参阅下面的演示。

演示：在 Excel 中同步多个工作表中的下拉列表