如何在 Excel 中快速於兩個清單框之間移動項目？

作者Sun修改日期2024-08-15

您是否曾試過將項目從一個清單方塊移動到另一個清單方塊，以滿足下圖所示的需求？接下來，我將為您說明如何在 Excel 中輕鬆完成這項操作。

在清單方塊之間移動項目

在清單方塊之間移動項目

Excel 本身並未內建此功能，但我有一段 VBA 程式碼可協助您完成這項工作。

1. 首先，您需要在名為 Admin_Lists 的新工作表中建立一份資料清單，作為清單方塊的項目來源。

來源資料的螢幕截圖

2. 接著選取這些資料，前往名稱方塊，並將其命名為 ItemList。請參閱螢幕截圖：

在名稱框中為來源資料命名的螢幕截圖

3. 接著，在包含兩個清單方塊的工作表中，按一下開發人員＞插入＞ 清單方塊（Active X 控制項），然後繪製兩個清單方塊。請參閱螢幕截圖：

如果您的開發人員索引標籤在功能區中被隱藏，如何在 Excel 2007／2010／2013 功能區中顯示開發人員索引標籤？本文將一步步教您輕鬆顯示它！

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

4. 接著按一下開發人員＞插入＞ 命令按鈕（Active X 控制項），然後在兩個清單方塊之間繪製四個按鈕。請參閱螢幕截圖：

現在，請使用新建的名稱為這四個命令按鈕重新命名。

5. 選取第一個命令按鈕，點擊屬性，然後在屬性窗格中，將其命名為 BTN_moveAllRight，並在>>旁的方框中輸入 Caption。請參閱螢幕截圖：

變更命令按鈕屬性的操作螢幕截圖

6. 重複步驟 5，將後三個命令按鈕以下列名稱重新命名，並在標題中分別輸入不同的箭頭符號。請參閱螢幕截圖：

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

7. 在包含清單方塊與命令按鈕的工作表名稱上按一下滑鼠右鍵，然後從內容功能表中選取檢視程式碼。請參閱下方螢幕截圖：

開啟 VBA 程式碼編輯器的螢幕截圖

8. 將下方的巨集程式碼複製並貼上至模組指令稿中，儲存後即可關閉 Microsoft Visual Basic for Applications 視窗。詳情請參閱螢幕截圖！

VBA：在兩個清單方塊之間移動項目

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Sheets("Admin_Lists").Range("ItemList")
    Me.ListBox1.Clear
    Me.ListBox2.Clear
    With Me.ListBox1
        .LinkedCell = ""
        .ListFillRange = ""
        For Each xCell In xRg
            If xCell <> "" Then
                .AddItem xCell.Value
            End If
        Next xCell
    End With
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub BTN_MoveSelectedLeft_Click()
    Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_MoveSelectedRight_Click()
    Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub

Private Sub BTN_moveAllLeft_Click()
    Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_moveAllRight_Click()
    Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub

Sub moveAll(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        xListBox2.AddItem xListBox1.List(I)
    Next I
    xListBox1.Clear
End Sub

Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        If I = xListBox1.ListCount Then Exit Sub
        If xListBox1.Selected(I) = True Then
            xListBox2.AddItem xListBox1.List(I)
            xListBox1.RemoveItem I
            I = I - 1
        End If
    Next
End Sub

使用 VBA 程式碼的操作螢幕截圖

9. 接著切換至其他工作表，再返回包含清單方塊的工作表，此時第一個清單方塊中已顯示清單資料。點擊命令按鈕，即可在兩個清單方塊之間移動項目。

執行 VBA 程式碼後，其中一個清單方塊顯示來源資料的螢幕截圖

移動所選項目

全部移動

最佳 Office 生產力工具

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