excel 工作薄里sheet（工作表）名稱由大到小排序

excel

打开任意一个excel表格，按住右键点一个工作表名字，选择查看代码，然后在弹出的代码框里直接粘贴下面这段代码，按F5运行就完事了：

Sub 工作表标签排序()n = Sheets.CountFor i = 1 To n Cells(i, Columns.Count).NumberFormatLocal = @ Cells(i, Columns.Count) = Sheets(i).NameNextCells(1, Columns.Count).Resize(n).Sort Cells(1, Columns.Count)R = Cells(1, Columns.Count).Resize(n)Cells(1, Columns.Count).Resize(n) = For i = 1 To nSheets(R(i, 1)).Move Sheets(1)NextEnd Sub

亲测有效，谁用谁知道~