怎样使用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=False
If f=Cancel Then Exit Sub
For 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 i
Next sht
Sheets(sht_names).Select
Application.ScreenUpdating=True
End Sub

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