首页 > Excel专区 > Excel函数 >

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

Excel函数 2023-01-13

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

Sub 按字母表排序工作表()
Dim i As Integer, j As Integer, n As Integer
On Error Resume Next
n = Sheets.Count
If n = 1 Then End
For i = 1 To n – 1
For j = i + 1 To n
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub

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


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.