上一次我们介绍了借助V幞洼踉残BA快速提取工作表名称的操作方法,今天我们介绍一下根据指定顺序对同一工作簿内工作表进行排序的操作方法。
工具/原料
EXCEL软件
方法/步骤
1、以下表为例,目录工作表中有其余工作表的表名,现在需要根据这个顺序对其他工作表进行排序。
2、在Excel选项自定义功能区中勾选“开发工具”。
3、依次点击“开发工具”、“VisualBasic”,进入VBA界面。
4、输入如下代码:SubSortsheet()DimShtAsW艺皱麾酪orksheet,Shtname$,i&胨检馁秣SetSht=ActiveSheetFori=2ToSht.Cells(Rows.Count,1).End(xlUp).RowShtname=Sht.Cells(i,1).ValueWorksheets(Shtname).Moveafter:=Worksheets(i-1)NextSht.ActivateEndSub代码比较简单,大意是先读取指定位置的排序,然后根据此排序对工作表进行重排。
5、插入窗体控件按钮,链接至刚才书写的代码。
6、将EXCEL表另存为xlsm格式,之后再次打开该文件。
7、点击刚才插入的窗体控件,之后可以看到工作表的排序已经发生变化,与我们指定的排序要求完全一致。