随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA数据重排？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub对A列数据排序()DimansAsB鲻戟缒男yte,anssAsByte,a(1To50)As朐袁噙岿Integer,iAsByteans=InputBox("请选择:1为升序,2为降序","选项",1,10,10)anss=InputBox("请选择新数据产生在哪一列"&Chr(10)&"只能输入数字。","选项",2,10,10)Fori=1To50a(i)=ActiveSheet.Cells(i+1,1)NextDimb(1To50)Fori=1To50Ifans=1Thenb(i)=Application.WorksheetFunction.Small(a,i)Ifans=2Thenb(i)=Application.WorksheetFunction.Large(a,i)NextFori=1To50ActiveSheet.Cells(i+1,anss)=b(i)NextActiveSheet.Cells(1,anss)="重排序"EndSub
5、使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出对话框询问是按升序还是降序排列
