如何将excel工作表按顺序命名

1.打开Excel工作薄之后,"点击"工作表左下角的需要更改名称的"工作表名称".

2.在工作表默认的打开的"开始"工具栏中,点击"格式"工具.

3.如图所示,在弹出的菜单中,点击"重命名工作表".

4.工作表名称底色成黑色,成可编辑状态."输入新名称",输入好后,在键盘上点击"Enter"即可.

将Excel的sheet1、sheet2、sheet3工作命名为容易记忆的名字.
有两种方法:
1.选择要改名的工作表.单击“格式→工作表→重命名”命令.这时工作表的标签上名字将被反白显示.然后在标签上输入新的表名即可。

2.双击当前工作表下部的名称.如“Sheet1”.再输入新的名称。

Sorry，我没答到点儿上，我的是工作表按照名称排序，不是按照顺序命名。

我就不盗用别人的回答了，看这个应该能解决你的问题，直接用VBA

http://zhidao.baidu.com/question/304982500492437164.html

*******详细代码如下********

Sub Sort_Sheets()
Dim sCount As Integer, I As Integer, R As Integer
ReDim Na(0) As String    '声明数组Na
sCount = Sheets.Count   '统计工作表数量。
'------------收集所有工作表名称代码段--------------
For I = 1 To sCount
    ReDim Preserve Na(I) As String 'Na被声明为动态数组，数组元素个数随I值发化变化
    Na(I) = Sheets(I).Name   '将第I个工作表名称存入数组
Next
'------------在数组中对名称进行排序-----------------
For I = 1 To sCount - 1 '从1到工作表数-1
    For R = I + 1 To sCount '从i+1到工作表数
        If Na(R) < Na(I) Then '若Na(R)            JH = Na(I) '本句和接下来两句，将Na(I)与Na(R)内容互换
            Na(I) = Na(R)
            Na(R) = JH
        End If
    Next
Next
'------------根据数组中排好的顺序，将相应工作表移到最后-------完成排序
For I = 1 To sCount  '
    Sheets(Na(I)).Move After:=Sheets(I)
Next
End Sub