怎样实现excel中各工作表（sheet）按字母排序？急-excel工作表排序,excel工作表sheet排序

Sub 工作表来标签排序()
n = Sheets.Count
For i = 1 To n
Cells(i, Columns.Count).NumberFormatLocal = "@"
Cells(i, Columns.Count) = Sheets(i).Name
Next
Cells(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 n
Sheets(R(i, 1)).Move Sheets(1)
Next
End Sub

--------------

打开你要排序的工作表，然后按自Alt +F11 ,在左侧点右键插入--模块，将上面的代码粘进去zd。然后F5运行，各sheet表就按字母进行排序了。

比较简单，如图，比如我排序sheet2,步骤就是图一，在SHEET2位置上按定鼠标左键，接着看到一个小插头，移动鼠标往左，小插头也会跟着，最后确定位置后放开鼠标左键。即可

望采纳~

excel给sheet页排序 步骤如下：

1、打开百Excel。如图，这里有8张表，现在需要对他们进行降序度排列，也就是序号知大的排前面，序号小的排后面。

2、找到 方方格子 选项卡。

3、点开“工作表”按钮下的道“排序工作表”。

4、可以看到里面有很多种排序方式，由于这里要求降序排列专，就点击“反向排序”即可。

5、点击“反向排序后”再点确定即属可。