ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何自动按新建工作表的先后顺序排序?.rar

如何自动按新建工作表的先后顺序排序?.rar

作者:绿色风 分类: 时间:2022-08-17 浏览:79
楼主
悟空师弟
Q:工作簿中有N个工作表,新增工作表后修改了工作表名,用拖拉的方法,变动了位置,请问如何将工作表按新建时间的先后顺序重新排序?

A:代码如下:
  1. Sub 自动排工作表()
  2.     Dim sht As Worksheet
  3.     For x = 50 To 1 Step -1
  4.         For Each sht In Sheets
  5.             tet = sht.CodeName
  6.             If Right(tet, Len(tet) - 5) + 0 = x Then
  7.             sht.Move Before:=Sheets(1)
  8.             End If
  9.         Next sht
  10.     Next x
  11. End Sub


说明:代码中的“50”是根据新建的工作表个数,如果确定没有删除过工作表可以将“50”改为 “Sheets.Count”(即工作表的个数)

详见附件:

如何自动按新建工作表的先后顺序排序?.rar


效果如下图:自动排工作表.gif
 
2楼
7786910
谢谢分享,O(∩_∩)O~

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap