怎样使用VBA工作表表名排序?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Sub 排序() Dim sht As Worksheet, sht_names 帆歌达缒As String, f, x, y, i sht_names=ActiveSheet.Name If Sheets.Count < 2 Then Exit Sub f=Application.InputBox("“0”表示降序," & Chr(10) & "“1”表示升序。", "排序方式", "1")Application.ScreenUpdating=FalseIf f=Cancel Then Exit SubFor Each sht In Sheets For i=2 To Sheets.Count x=UCase(sht.Name) y=UCase(Sheets(i).Name) Select Case f Case Is=0 If x < y Then Sheets(x).Move AFTER:=Sheets(i) Case Is=1 If x > y Then Sheets(x).Move AFTER:=Sheets(i) End Select Next iNext shtSheets(sht_names).SelectApplication.ScreenUpdating=TrueEnd Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出选择“排序方式”对话框，等待选择排序方式，如图所示，本例选择升序。