如何將下拉式方塊的值複製到 Excel 的作用中儲存格？

作者Siluvia修改日期2024-10-30

在某些情況下，您可能需要將下拉式方塊中選取的值複製到作用中儲存格。以往通常得手動進入下拉式方塊，複製後再貼上至作用中儲存格。本文將為您介紹一種便捷方法，讓您在選取下拉式方塊的值時，自動更新作用中儲存格。

以下 VBA 程式碼可協助您自動將下拉式清單的值填入作用中儲存格。請依照下列步驟操作：

VBA 1：透過命令按鈕將下拉式方塊的值複製到作用中儲存格

1. 首先，請依照下方截圖所示，在工作表中插入一個命令按鈕。

顯示 Excel 中用於複製下拉式方塊值的命令按鈕的螢幕截圖

2. 以滑鼠右鍵按一下命令按鈕，然後在右鍵功能表中點選檢視程式碼。請參閱截圖：

顯示在 Excel 中對命令按鈕按右鍵以存取「檢視程式碼」選項的快捷選單螢幕截圖

3. 在彈出的 Microsoft Visual Basic for Applications 視窗中，請將程式碼視窗內的原始程式碼替換為下方的 VBA 程式碼。

VBA 程式碼：將下拉式方塊的值複製到作用中儲存格

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

注意：在程式碼中，CommandButton 1 是所插入命令按鈕的名稱，ComboBox 1 則是您要從中複製值的下拉式方塊名稱，請依需求修改這些名稱。

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

從現在起，當您需要將下拉式方塊的值複製到作用中儲存格時，只需選取目標儲存格，然後點擊命令按鈕即可輕鬆完成！

顯示將下拉式方塊值複製到 Excel 活動儲存格結果的螢幕截圖

VBA 2：自動將下拉式方塊的值複製到作用中儲存格

以下 VBA 程式碼能協助您在選取下拉式清單的值時，自動更新作用中儲存格。請依照下列步驟操作：

1. 請確認設計模式已在開發人員索引標籤中啟用。

2. 以滑鼠右鍵點擊您要複製值的下拉式方塊，然後在右鍵選單中點選檢視程式碼。請參閱截圖：

顯示在 Excel 中對下拉式方塊按右鍵以存取「檢視程式碼」選項的快捷選單螢幕截圖

3. 在彈出的 Microsoft Visual Basic for Applications 視窗中，請將程式碼視窗內的原始程式碼，替換為下方的 VBA 程式碼。

VBA 程式碼：將下拉式方塊的值複製到作用中儲存格

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

注意：在程式碼中，ComboBox 1 為您要從中複製值的下拉式方塊名稱。

4. 按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗，並於開發人員索引標籤中關閉設計模式。

從現在起，當您在下拉式選單中選取值時，該選項將自動顯示於作用中儲存格內。

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