打开Excel，按ALT+F11，点菜单里的插入-模块 然后复制这段代码进去： Sub aaaaa() For X = 1 To Y（这里填你要的数字，几个表就填几） Sheets(X).Name =Format(X, 00) Next End Sub 比如你要改1到32张表，就把Y改成32，或者也可以写成5 TO 32 接着点工具-宏，运行就行了 工具-宏也在ALT+F11界面里面的工具选项里
Sub re_name_wst() Dim ws_name As String, new_name As String Dim n As Integer, i As Integer n = ThisWorkbook.Worksheets.Count For i = 1 To n ws_name = Worksheets(i).Name new_name = Replace(ws_name, "m", "f") Worksheets(i).Name = new_name Next End Sub
