Excel工作表排序依据

新建一个工作表，放到最左边，名字可以叫排序或者其他容易认的。这个表是用来调整其他工作表顺序的。然后右键点击这个表的标签，选择查看代码，把下面这段代码复制进去：

Sub 统计工作表名称()Dim i As IntegerCells(1, 1) = 序号Cells(1, 2) = 工作表名称Range(Cells(2, 1), Cells(UsedRange.Rows.Count, 2)).ClearFor i = 2 To Worksheets.CountCells(i, 1).Formula = =row()-1Cells(i, 2) = Sheets(i).NameNext iEnd SubSub 工作表排序()Dim i As IntegerSheets(Cells(i, 2).Value).Move after:=Sheets(Cells(i, 1))Next iSheets(1).ActivateEnd Sub

先运行统计工作表名称这个宏，然后对里面的数据按工作表名称排序，看看顺序对不对。如果不对可以手动调整一下。确认好顺序后，再运行工作表排序，工作表就会按照你设置的顺序排好啦！