虽然平常在用excel 2010重命名工作表的时候,一般可能会用“双击工作表”的方法来重名,但是遇到大批量重名的时候就很麻烦。
我的方法,先建一张新表,然后在第一列写好要命名的表名字,然后在VBE窗口里面输入代码
Sub rename() '批量工作表重命名 Dim i As Integer For i = 1 To 5 Worksheets(i).Name = Cells(i, 1) Next End Sub
虽然平常在用excel 2010重命名工作表的时候,一般可能会用“双击工作表”的方法来重名,但是遇到大批量重名的时候就很麻烦。
我的方法,先建一张新表,然后在第一列写好要命名的表名字,然后在VBE窗口里面输入代码
Sub rename() '批量工作表重命名 Dim i As Integer For i = 1 To 5 Worksheets(i).Name = Cells(i, 1) Next End Sub