如何使一个工作薄内有规律的表名按升序排列？

作者：绿色风分类：时间：2022-08-17 浏览：132

楼主 syz105729913	Q：如何使一个工作薄内有规律的表名按升序排列？ A：首先ALT+F11调出VBE编辑器，插入一个模块，复制以下代码进去，最后运行代码即可。注：由于要使用VBA，所以宏的安全性要调低。 Sub syz() Dim i%, j% For i = 1 To Sheets.Count For j = i To Sheets.Count If Val(Sheets(j).Name) < Val(Sheets(i).Name) Then Sheets(j).Move Before:=Sheets(i) End If Next j Next i End Sub 示例文件 Book1.rar
2楼 wise	Q:如何用VBA对工作表进行排序? A:ALT+F11→插入模块→在模块中输入以下代码: Sub sortsheet() For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next j Next i End Sub
3楼 paul001	很奇怪，我用这个排序的话是1、10、15、2、3、4、5、6

免责声明

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

评论列表