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