Excel VBA ——批量工作表重命名

虽然平常在用excel 2010重命名工作表的时候，一般可能会用“双击工作表”的方法来重名，但是遇到大批量重名的时候就很麻烦。

我的方法，先建一张新表，然后在第一列写好要命名的表名字，然后在VBE窗口里面输入代码

Sub rename()
    '批量工作表重命名
    Dim i As Integer
    For i = 1 To 5
        Worksheets(i).Name = Cells(i, 1)
    Next
End Sub