假设您在工作簿中的多个工作表上有下拉列表，其中包含完全相同的下拉项。 现在，您希望跨工作表同步下拉列表，这样一旦您从一个工作表的下拉列表中选择了一个项目，其他工作表中的下拉列表就会自动同步相同的选择。 本文提供了一个 VBA 代码来帮助您解决这个问题。
假设您在工作簿中的多个工作表上有下拉列表，其中包含完全相同的下拉项。 现在，您希望跨工作表同步下拉列表，这样一旦您从一个工作表的下拉列表中选择了一个项目，其他工作表中的下拉列表就会自动同步相同的选择。 本文提供了一个 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 中同步多个工作表中的下拉列表准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
