怎样将一个excel文件中的多个工作表按名称排序?

发布网友 发布时间：2022-02-23 02:52

我来回答

共6个回答

热心网友 时间：2022-02-23 04:21

1、首先我们打开Excel，如图这里有8张表，现在需要对他们进行名称排序。

2、我们在界面上方找到 方方格子 选项卡。

3、然后我们点开“工作表”按钮下的“排序工作表”。

4、可以看到里面有很多种排序方式，我们点击字母排序。

5、点击“字母排序”再点确定即可将一个excel文件中的多个工作表按名称排序。

热心网友 时间：2022-02-23 05:39

Sub 表格排序()
Dim i%, j%
For i = 1 To Sheets.Count - 1
    For j = 1 To Sheets.Count - 1
        If Sheets(j).Name >= Sheets(j + 1).Name Then
           Sheets(j).Move after:=Sheets(j + 1)
        End If
    Next j
Next i
Sheets(1).Select
End Sub

ALT+F11键——F7——粘贴上面的代码——运行即可。

热心网友 时间：2022-02-23 07:14

按shift是 不能排序的，你也许不明白 楼主的意思，他要的是： 一个*.xls里面 有好多个工作薄，能不能把这些工作薄按名称排序？
其实 我也感兴趣这个问题。。顶追问我自己知道了，没有简单的方法，右击下面工作表名字，手动移动工作表。只能这样了。。

热心网友 时间：2022-02-23 09:22

EXCEL的现有版本没有此项功能

热心网友 时间：2022-02-23 11:46

用这个公式即可
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

热心网友 时间：2022-02-23 14:28

可以一次性 按住shift建，同时选中所有的工作表，在排序