1、一、显示“开发工具”选项卡。打开Excel2010，点击左上方“文件”图标。点击“选项”，弹出“Excel选项”对话框，在“自定义功能区”中勾选“开发工具”，点击确定。
2、二、设置下拉列表的选项内容。将工作表sheet2名称修改为“data”,并在A列输入下拉选项。
5、在VB编辑器中双击Sheet2，将以下代码粘贴到编辑器中并保存。（该段代码是为了动漤逗庞俄态设置下拉菜单选项苒锃巳伢值而加的，如果下拉菜单的选项值固定，可以直接在ListBox的ListFillRange属性中指定，不要以下的代码）在sheet2（data）中保存代码：Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Sheet1").ListBox1.ListFillRange = "data!a1:a" & Cells(1, 1).End(xlDown).RowEnd Sub
