摘要： 如果工作簿内有大量以字母开头的工作表，要将这些工作表按照字母表的顺序进行排序，可以用下面的VBA代码来实现。按Alt F11，打开VBA编辑器，单击菜单“插入→模块... 如果工作簿内有大量以字母开头的工作表，要将这些工作表按照字母表的顺序进行排序，可以用下面的VBA代码来实现。按Alt F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中粘贴下列代码并执行。
Excel2007中输入事件处理程序的VBA代码
每个事件处理程序必须存放在特定类型的代码模块中。工作簿级别事件的代码应该放在ThisWorkbook代码模块中，工作表级别事件的代码应该放在特定工作表的代码模块中(例如，命名为Sheet1的代码模块)。 此外，每个事件处理程序都有预先确定的名称。可以通过键入名称来声明过程，但是更好的方法是让VB编辑器做这项工作。如图显
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
上述代码是按照字母表升序来对工作表进行排序的，如果要按降序排序，将代码中的小于号改为大于号即可。
excel的VBA程序能否调用EXCEL函数呀？
大部分是可以的先假设 Excel 的工作表函数 SUMSUM 不是 VBA函数, 但亦可在VBA上引用在此提供简单的代码方法:Range("a1") = WorksheetFunction.Sum(Range("B3:B6"))或Range("a1") = A
