让我提供一个用vba排序的方法:
当鼠标点击b1:e1区域时，鼠标点击的列标题行将自动按照从最大列到最小列的顺序排序。
方法:
1.按altf11打开vbe并输入以下代码:
subworksheet_selectionchange(byvaltargetasrange)whentheselectedcellchanges,theselectionchangeeventoftheworksheetwillbetriggered.
dimicolumndeclaresicolumnvariablesasintegers.
如果lt5和1那么，如果列数是lt5(即a列到e列的面积)并且在第一行(即标题行，如果要点击该列的任意一行达到排序效果，可以去掉1)。
如果ltgticolumn，则如果鼠标点击的列数不等于icolumn，则将点击数赋给icolumn。
itrain
if...itwillbeover.
范围(a1:e9)键1:单元格(1，icolumn)，order1:xldescending，_
header:xlyes在a1:e9区域中，鼠标点击的第一行单元格按降序排列。
if...itwillbeover.
endjoint
2.按f5，或者点击vbe菜单栏中的三角形箭头运行宏，就可以看到我们需要的效果了:
点按右侧的三角形按钮以升序和降序排序。
如果要在工作表中制作下拉选项，建议在activex中插入一个combobox控件，并设置其listfillrange区域。如果要在表单中创建下拉选项，请插入组合框combobox，并使用additem方法添加项目。在控制类别中，在性别中设置相关属性。
1.打开一个excel文件，在表单中输入一个简单的表单，比如衣服输入数据的表单。；
2.然后，单击amp的菜单选项卡开发工具"用鼠标左键，并在vba控件下拉菜单中选择表单按钮控件。；
3.然后，在表格中绘制按钮控件，并修改按钮控件的名称，如输入名称，用鼠标左键点击【查看代码】按钮。；
4.然后，在弹出的代码窗口中输入定义字符串变量的语句。；
5.然后，在代码窗口中，输入inputbox函数和赋值语句。；
6.最后，在设计窗口中，用鼠标左键单击按钮，就可以看到表中的。弹出输入窗口，您可以输入数据。
