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

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

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

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

例如，下拉列表分布在五个名为Sheet1、Sheet2、...、Sheet5的工作表中，为了根据Sheet1中的下拉选择同步其他工作表中的下拉列表，请应用以下VBA代码来实现。

1. 打开Sheet1，右键单击工作表标签，并从右键菜单中选择“查看代码”。

2. 在 Microsoft Visual Basic for Applications窗口中，将以下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. 按Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

从现在开始，当你在Sheet1中从下拉列表中选择一个选项时，指定工作表中的下拉列表将自动同步为相同的选择。请参见以下演示。

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