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

日期：2023-10-11 05:13

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

按字母顺序对工作表进行子排序()
Dim i 作为整数，j 作为整数，n 作为整数
出错时继续下一个
n = Sheets.Count
如果 n = 1 则结束
对于 i = 1 到 n – 1
对于 j = i + 1 到 n
如果 UCase(Sheets(j).Name) < UCase(Sheets(i).Name) 则
Sheets(j) ).移至:=工作表(i)
结束如果
下一个j
下一个i
结束子

上面的代码按字母升序对工作表进行排序。如果想按降序排序，只需将代码中的小于号改为大于号即可。

最近发表

猜你喜欢

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

相关文章