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

如何在 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 中同步多个工作表中的下拉列表