excel表格中工作表顺序排列方法

发布网友 发布时间：2022-02-22 11:21

我来回答

共1个回答

热心网友 时间：2022-02-22 12:50

别人的方法，转告你：按下ALT+F11打开VBA编辑器，插入一个模块，将下列代码粘贴进去使用即可。
'以下为需要复制的代码：
Sub
SheetSort()
'工作表按名称排序
Dim
i
As
Long
Dim
Sh
As
Worksheet
'关闭屏幕刷新以提高速度
Application.ScreenUpdating
=
False
'添加一张临时表提取所有表名并排序
ThisWorkbook.Worksheets.Add
after:=Worksheets(Worksheets.Count)
Set
Sh
=
ActiveSheet
For
i
=
1
To
Worksheets.Count
-
1
Sh.Cells(i,
1)
=
Worksheets(i).Name
Next
Sh.Columns(1).Sort
Key1:=Range("A1"),
Order1:=xlAscending,
Header:=xlGuess,
_
OrderCustom:=1,
MatchCase:=False,
Orientation:=xlTopToBottom,
SortMethod:=
_
xlPinYin,
DataOption1:=xlSortNormal
'按名称排序后移动表
For
i
=
1
To
Worksheets.Count
-
1
Worksheets(Sh.Cells(i,
1).Text).Move
after:=Worksheets(Worksheets.Count)
Next
'禁止提示删除临时表再恢复提示
Application.DisplayAlerts
=
False
Sh.Delete
Application.DisplayAlerts
=
True
'恢复屏幕刷新
Application.ScreenUpdating
=
True
End
Sub