excel批量重命名工作表

注：本次批量命名工作表是从已建有的工作表里面对其重命名，并不是新建工作表并批量命名，后者有很多人已经提供各种帮助，在此介绍前者

假设现有n个工作表

 如果一个一个对其重命名，实数太过麻烦

此时你可以点击任何一个工作表

 在弹出上面的对话框中选择查看代码

 双击左边VBA工具框中的ThisWorkbook，再从弹出的编辑界面中输入以下代码

Sub rename()

        '批量重命名工作表

        Dim k As Integer

        k = 12 '工作表相对地址

        For i = 1 To k

                Worksheets(i).Name = 2000 & "." & i

        Next

End Sub

下图是我批量重命名工作表以2021年各月份演示的代码示意图及结果图

 

因为我是用日期对工作表来命名的，所以当命名到2001年时，需要把12换到24,然后i从13开始，即把1改成13，循环中2000 & "年" & i &''月''需要把“i”改为“i-12”，后面再做其它年份命名的话，以此类推。（VBA工具框中只最多能显示99个工作表，但是实际命名的时候可以重命名所有工作表，即多于99个工作表的话，结果也无影响）

对工作表用日期重命名相对于其它形式的重命名较简单，故在此只展示这一种方式，其它简单方式的重命名读者可以自行对代码进行调试