??小E為大家準(zhǔn)備了100+Excel模板，

??領(lǐng)取直接關(guān)注公棕號(hào)【秋葉Excel】，回復(fù)【B站】！

大家好！我是最近又開(kāi)始倒騰 VBA 的綠水零。

作為一名資深表姐，我在日常工作中，肯定是少不匯總數(shù)據(jù)了的。

例如年終匯總大家的福利什么的，讓大家從福利清單中選幾樣，匯總起來(lái)就是這個(gè)樣子↓↓↓

雖然福利列表（可以選的福利）都是相同的，但每個(gè)人選的福利組合并不相同。

要手動(dòng)一個(gè)一個(gè)輸入？【Ctrl+C】&【Ctrl+V】？?

不可能的，不可能的，肯定有更方便的方法的。

從相同的列表選項(xiàng)中選取不同組合，這不就是多選題（多選的下拉列表）嗎？

怎么在 Excel 中簡(jiǎn)單制作，添加選項(xiàng)簡(jiǎn)便又快捷的——下拉多選列表呢！

噔噔蹬蹬，照例先看看效果圖：

（以下方法適用于有 VBA 的 Excel，演示使用的是 Office365。）

01解決方法

??既然是下拉列表，那我們第一步就先來(lái)添加一個(gè)列表。

?點(diǎn)擊【開(kāi)發(fā)工具】選項(xiàng)卡-【插入】-ActiveX 控件-列表框。

注意：是 ActiveX 控件，不是表單控件。?

? 隨手畫(huà)一個(gè)列表框，大小位置隨意，畫(huà)完之后，再次點(diǎn)擊【開(kāi)發(fā)工具】選項(xiàng)卡-「設(shè)計(jì)模式」，退出「設(shè)計(jì)模式」。

「設(shè)計(jì)模式」按鈕由灰色變回白色，則表明已退出。

??新建工作表「data」，在 A1 單元格輸入下拉選項(xiàng)的標(biāo)題，A2 及以下的單元格輸入選項(xiàng)內(nèi)容。

??回到 Sheet1 工作表，使用快捷鍵【Alt+F11】打開(kāi) VBA 編輯器，雙擊需要添加多選列表的工作表（此處是 Sheet1），然后將相關(guān)的 VBA 代碼黏貼到代碼窗口。

?最后關(guān)閉 VBA 編輯器。

（VBA 代碼獲取方式見(jiàn)文末。）

?這樣多選下拉列表就搞定了，接下來(lái)我們看看效果。

02結(jié)果演示

現(xiàn)在我們就可以點(diǎn)擊單元格，打開(kāi)多選下拉列表，然后通過(guò)點(diǎn)擊列表的選項(xiàng)，快速輸入不同的選項(xiàng)組合。

（VBA 代碼預(yù)留了第一行是標(biāo)題，因此點(diǎn)擊第一行不會(huì)出現(xiàn)下拉列表。）

除了以上功能外，通過(guò)在 data 工作表中增減或修改選項(xiàng)，可以快速修改下拉列表的選項(xiàng)內(nèi)容，Sheet1 工作表中的列表框會(huì)自動(dòng)更新選項(xiàng)。

data 工作表中的 A 列對(duì)應(yīng) Sheet1 工作表中 A 列的列表框，data 工作表中的 B 列對(duì)應(yīng) Sheet1 工作表中 B 列的列表框，以此類(lèi)推。

如果 data 工作表中 A 列不填寫(xiě)任何內(nèi)容，則 Sheet1 中的對(duì)應(yīng)列也不會(huì)出現(xiàn)多選列表框。

因此，可以根據(jù)自己的需求，在任意列添加多選列表。

03?注意事項(xiàng)

? 如果你發(fā)現(xiàn) Excel 沒(méi)有【開(kāi)發(fā)工具】選項(xiàng)卡，可以單擊【文件】-「選項(xiàng)」-「自定義功能區(qū)」-「主選項(xiàng)卡」，找到「開(kāi)發(fā)工具」并勾選。

? 設(shè)置列表選項(xiàng)的工作表（案例中的 data 工作表）必須命名為 data。

???添加了 VBA 代碼的文件，建議將文件格式保存為"啟用宏的工作簿(*.xlsm)"，這樣下次打開(kāi)時(shí)，VBA 的功能才能正常使用。

今天介紹的案例只適用于單個(gè)工作表中設(shè)置多選列表，另外還有多工作表使用版本哦~想學(xué)的小伙伴點(diǎn)贊告訴我

先預(yù)告一下效果：

今日份小知識(shí)——下拉多選列表已送達(dá)，收到的小伙伴們一鍵三連支持一下吧

??小E為大家準(zhǔn)備了本文案例文件（包含 VBA 代碼哦），

??領(lǐng)取直接關(guān)注公棕號(hào)【秋葉Excel】，回復(fù)【多項(xiàng)選擇】！