一、Excel下拉菜单的概述
下拉菜单是Excel中一个非常有用的功能，它可以让用户通过选择预先设定的选项来填充单元格，减少输入错误的机会，同时也能提高工作效率。在Excel中设置下拉菜单也十分简单，接下来就让我们一步步教你如何快速设置。二、步骤介绍
1、选中需要进行下拉菜单设置的单元格，然后点击“数据”菜单栏；2、在“数据工具”组内点击“数据验证”；
3、在“设置”选项卡下拉菜单中选择“列表”；
4、在“源”文本框里输入下拉菜单列表的数据源，获取数据源的方法可以是从其他Excel工作簿、从单元格范围或文本等途径；
5、点击“确定”后就已经完成了下拉菜单的设置。此时的下拉菜单还有其他可编辑选项，比如允许逗号分隔项等等。
三、Excel下拉菜单进阶设置
除了上述基本的下拉菜单设置方法外，Excel还提供了其他有趣的下拉菜单功能。接下来，我们将来学习如何利用VBA代码设置展开下拉菜单和如何添加有删除行或者列的数据列表。1、利用 VBA 代码设置 Excel 展开菜单
有时候，我们想让下拉菜单更加灵活，可以根据输入的内容自动展开菜单。这就需要我们用到VBA代码。稍微有些编程基础的用户，可以用下面的代码实现自动下拉菜单。``` Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row = 1 Then Me.Range(\"B1:B4\").Clear targetVal = LCase(Target.Value) For i = 2 To 5 val = LCase(Me.Cells(i, 1).Value) If Left(val, Len(targetVal)) = targetVal Then Me.Cells(Me.Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Me.Cells(i, 1).Value End If Next i End If End Sub ```
2、添加有删除行或者列的数据列表
有时候，我们需要在一个单元格里保存多项数据，而这些数据还需要支持删除。这时我们可以通过利用Excel的动态数组和自定义函数来实现这个功能。具体做法是：1、选中需要添加列表功能的单元格，然后点击“开发工具”选项卡；
2、在“控件”组内点击“组合框”按钮；
3、将选中单元格变成列表框并打勾“显示下拉箭头”；
4、在VBA Editor中添加一个模块并向其中添加如下函数；
``` Function addToList(rowNumber As Long, oldValue As Variant, newValue As Variant) If IsError(oldValue) Then ReDim xArr(1 To 1, 1 To 1) xArr(1, 1) = newValue ElseIf IsArray(oldValue) Then ReDim xArr(1 To UBound(oldValue, 1) + 1, 1 To 1) For i = LBound(oldValue, 1) To UBound(oldValue, 1) xArr(i, 1) = oldValue(i, 1) Next i xArr(UBound(xArr, 1), 1) = newValue Else ReDim xArr(1 To 2, 1 To 1) xArr(1, 1) = oldValue xArr(2, 1) = newValue End If addToList = xArr End Function ``` 5、用 Alt + F8 快捷键呼出“宏”窗口，添加一个新的宏，选择其类型为“对象”，选择对应列表框并输入名字“olel”；
6、在VBA Editor中添加如下代码到对应的列表框“OLEL_Change”事件中； ``` Private Sub OLEL_Change() Set r = ThisWorkbook.Sheets(\"Sheet1\").Range(\"D1:Z1\") Dim arr arr = addToList(1, olist, Me.OLEL.List(Me.OLEL.ListIndex)) olist = arr r.ClearContents For i = LBound(olist, 1) To UBound(olist, 1) r.Cells(1, i - LBound(olist, 1) + 4).Value = olist(i, 1) Next i End Sub ``` 通过以上做法，文本框可以得到一个动态数组，并支持添加，删除等操作。
到此，关于Excel下拉菜单的设置就介绍到这里。Excel的下拉菜单功能非常的强大，通过学习之后，我们可以让工作效率更高。在工作中有什么操作需要实现的可以参考本文提供的方法。