制作下拉列表选项的方法如下：
用WPS打开文档，可以看到，性别栏中男女是一个重复项，可以设置为一个下拉列表，直接选择，不用重复输入。在菜单栏“数据”中选择插入下拉列表。弹出插入下拉列表对话框，点击增加按键分别填写男、女，点击确定。
此时，表格中出现了下拉框。将鼠标放到处，当出现“+”号后，往下拉，复制下拉框。所有的格子中都出现了下拉框，您只需要点击，选择就可以将男女填写。
office添加开发工具选项卡的方法：
方法一：
打开要操作的excel文档，点击左上角的圆形按钮，选中右下角的Excel选项。?在打开的Excel选项界面上，选中常用，然后在右边的框中选中 在功能区显示“开发工具”选项卡，选好后点击确定按钮，这样开发工具即可添加到工具栏上。
方法二：
打开要操作的word文档，同样的点击左上角的圆形按钮想，选中word选项。在打开的Word选项框中，选中常用，然后在右边的框中选中 在功能区显示“开发工具”选项卡，选好后点击确定按钮。这样开发工具选项卡即可添加成功。
可通过VBA实现下拉框加长的(显示更多待选项)的需求.
按Alt+F11,调出VBA,在VBAProject 右键→插入→用户窗体
请点击输入描述
调整窗体成细长的形状
请点击输入描述
分别增加一个按钮和列表框
请点击输入描述
在工作表某列把待选内容输入好(此例放N列);双击列表框,在弹出的窗口中输入以下代码
Private Sub UserForm_Initialize()
n = Sheets("记录明细").Range("N" & Rows.Count).End(xlUp).Row
arr = Sheets("记录明细").Range("N3:N" & n)
ListBox1.List = arr
End Sub
5.单击"UerForm1",双击 "选择"按钮
6.在弹出的VBA窗口中输入以下代码
Private Sub CommandButton1_Click()
Dim s As String
For i = 0 To ListBox1.ListCount - 1
?If ListBox1.Selected(i) = True Then
? s = s & ListBox1.List(i, 0)
?End If
Next i
ActiveCell = ActiveCell & s
Unload Me
End Sub
7.在工作表名称上右键→查看代码
8.输入以下代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 And Target.Row > 2 Then
?UserForm1.Show
End If
End Sub
9.双击待选单元格,点击需要的内容,再点选择
