excel VBA按字母表顺序对工作表进行排序

网友投稿 593 2022-12-03

excel VBA按字母表顺序对工作表进行排序

excel VBA按字母表顺序对工作表进行排序

如果工作簿内有大量以字母开头的工作表,要将这些工作表按照字母表的顺序进行排序,可以用下面的VBA代码来实现。按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中粘贴下列代码并执行。

Sub 按字母表排序工作表()Dim i As Integer, j As Integer, n As IntegerOn Error Resume Nextn = Sheets.CountIf n = 1 Then EndFor i = 1 To n – 1For j = i + 1 To nIf UCase(Sheets(j).Name) < UCase(Sheets(i).Name) ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iEnd Sub

上述代码是按照字母表升序来对工作表进行排序的,如果要按降序排序,将代码中的小于号改为大于号即可。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何在受保护的excel工作表中使用分级显示
下一篇:利用excel VBA删除工作表中的重复行
相关文章