如何在 Excel 的多個工作表中同步下拉式清單？

作者Siluvia修改日期2024-12-05

假設您在活頁簿的多個工作表中都設有內容完全相同的下拉式清單，現在希望實現跨工作表同步：當您於任一工作表的下拉清單中選取某個項目時，其他工作表中的對應下拉清單會自動更新為相同選項。本文提供一段 VBA 程式碼，協助您輕鬆達成此功能。

使用 VBA 程式碼在多個工作表中同步下拉列表

使用 VBA 程式碼在多個工作表中同步下拉列表

例如，下拉列表分別位於五個名為 Sheet 1、Sheet 2、……、Sheet 5 的工作表中。若要根據 Sheet 1 中的下拉式清單選項同步更新其他工作表的下拉列表，請套用下列 VBA 程式碼完成設定！

1. 開啟 Sheet 1，以滑鼠右鍵按一下工作表分頁，然後從右鍵功能表中選取檢視程式碼。

顯示在 Excel 中對 Sheet1 按右鍵以檢視程式碼的選單畫面

2. 在 Microsoft Visual Basic for Applications 視窗中，將下列 VBA 程式碼貼到 Sheet 1 （程式碼） 視窗中。

顯示在 Excel 中貼上 VBA 程式碼的 Microsoft Visual Basic for Applications 視窗畫面

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

注意事項：

1) 在程式碼中，A2:A11 是包含下拉列表的範圍。請確保所有工作表中的下拉列表均位於相同的範圍內。

2)Sheet 2、Sheet 3、Sheet 4 與 Sheet 5 是包含下拉列表的工作表，您希望根據 Sheet 1 中的下拉列表同步這些工作表；

3) 若要在程式碼中加入更多工作表，請在「Application.EnableEvents = True」這一行之前新增以下兩行程式碼，然後將工作表名稱「Sheet 5」修改為所需名稱。

Set tSheet 1 = ActiveWorkbook.Worksheets("Sheet 5")

tSheet 1.Range(xRangeStr).Value = Target.Value

3. 按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

從現在起，當您在 Sheet 1 的下拉列表中選取任一項目時，指定工作表中的下拉列表將自動同步為相同選項！立即參閱下方示範，掌握這項高效功能。

GIF 動圖展示在 Excel 中選取項目時，下拉式清單如何跨工作表同步

示範：在 Excel 多個工作表中同步下拉列表

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多