​

下拉列表的制作，基本上大家都會做，使用數據有效性-列表即可處理

如果還不會，查看

往期的教程：

智能下拉菜單系系列-可配置的一級下拉

項目實戰系列-增強智能下拉列表【2】

以上都是一個單元格，隻能選擇一個項目，如果我們要選擇多個如何處理呢？

效果圖

如何制作：

​ '作者：Excel辦公實戰-小易 '日期：2019-8-12 '功能：下拉框多選 '****************************************************** Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count <> 1 Then End 'Columns(3)-這裡的3表示下拉列表所在的列(C列) If Intersect(Target, Columns(3)).Cells.Count = 0 Then End Application.EnableEvents = False newdata = Target.Value Application.Undo olddata = Target.Value If newdata <> "" Then If olddata <> "" Then Target.Value = olddata & "," & newdata If InStr(olddata, newdata) > 0 Then Target.Value = olddata Else Target.Value = olddata & "," & newdata End If Else Target = newdata End If End If Application.EnableEvents = True End Sub ​

• 進入VBE，雙擊對應的工作表名稱，複制附上代碼，粘貼關閉，即可使用
• 如上代碼，已經過濾掉重複的選取

系列往期教程：

【技巧1001-1】誰綠了Excel

【技巧1001-2】3秒搞定最大、最小、首次、最新

【技巧1001-3】批量提取姓名電話号碼

【技巧1001-4】-批量提取文件名并建立超鍊接

【技巧1001-5】-數據透視表字段批量計數轉求和，效率提高100%！

【技巧1001-6】-Excel版的AI智能處理

【技巧1001-7】-元和萬元之間自由切換

【技巧1001-8】-終極指南|0基礎制作工作表目錄

【技巧1001-9】-看完，還不會按顔色求和就是你的不對了