问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
更年期避孕环需要取吗 更年期不避孕会怀孕吗 在长沙乐活城买了一顶FUO的帽子,不知道该怎么保养。 长沙乐活城在哪里 想知道: 长沙市 长沙乐活城在哪里? 做梦梦见家里有老鼠,抓了三次,一次比一次老鼠大。第一次抓到了。后面... 艾尔登法环法师拿什么剑 oppor9怎么打开麦克风权限 oppor9如何root权限? 现在我有一个老房子房间需要改造,原来的尺寸是高4米,长3.4米,宽2米的... 急性肠胃炎如何止痛 怎样对excel表格中的数据进行排序 excel表格排序有哪些依据 怎样给怎样给文件夹里面的excel表格排序 如何在excel表格中排序 excel表格中怎么排序 Excel表格排序的几种方法 怎样给excel表格排序 Excel表格中常用的排序方法有哪些? 怎样合并音频和视频文件 新浪微博账号如何注销 新浪微博账号怎么注销? 新浪微博账号如何注销??? 请问大家新浪微博相册里的照片怎么删除。 最新版的新浪微博相册里的照片怎么删除 现在新浪微博里相册照片怎么删掉 如何删除新浪微博相册里的照片 支付宝微信账单能打印吗转账提现都能打印出来吗 微信账单 能打印吗 微信支付使用后,流水账单能打印吗? 怎样在word中插入空白页 在excel表格中,数据排序的方式包括什么 excel表格数据排序的方法 Excel电子表格如何自动排序 QQ邮箱可以注销掉重设吗? QQ邮箱可以注销吗? qq邮箱在别的网站注册了,要怎么注销?? 已经注册过的邮箱可以注销吗?怎么注销?比如QQ邮箱。。。 QQ邮箱怎么注销掉,不要在QQ那里显示出来? 怎样才很把手机里的三张照片拼在一起 华为手机怎样把两张照片拼在一起 在手机上怎么把2张图片拼在一起 怎么在手机上把几张照片拼在一起 在手机上怎么超着才能把几张照片拼在一起 手机怎么把两张照片拼接在一起 华为手机怎么把两张图片上下拼在一起。 怎么设置 win10开机密码设置,取消教程 取消电脑开机密码怎么设置 win10 win10操作系统如何取消开机密码? word表格行距如何调整 在WORD表格中,如何调整行距和列距?