excel vba下拉菜单怎么做

工具：Office2013

方法如下：

选择要设置下拉菜单的区域，点击数据中的“数据验证”：

在允许下，选择“序列”，在来源中输入下拉菜单内容，注意用英文逗号分隔，完成后，点击确定：

这样，就在Excel中制作好了下拉菜单：

Private Sub UserForm_Initialize()

    Dim i As Integer

    For i = 1 To Sheets.Count

        Me.ComboBox1.AddItem Sheets(i).Name

    Next

End Sub

如果楼主的下拉列表指的是组合框而不是Sheet中的自动筛选或数据有效性的话，上面是一个样本，在窗体中的一个组合框ComboBox1在窗体UserForm的初始化事件中，把当前工作簿的每个Sheet的名字加到了List中，使用的是ComboBox的AddItem方法。

---