Excel工作表批量重命名的方法

excel工作表批量重命名的方法

本文介绍Excel工作表单一文件和批量重命名文件的方法。

excel工作表重命名的方法有下面几种：

第一，单击菜单“格式”——“工作表”——“重命名”。　　第二，单击工作表标签，右键选择“重命名”。　　第三，双击工作表标签，直接对工作表重命名。

上面三种方法，都可以对Excel工作表重命名，不过都是一个一个工作表分别重命名。

如何做到excel工作表批量重命名呢？有下面两种方法，供参考：

第一种：利用Excel工作表现有单元格内容进行批量重命名。　　例如：Excel工作表默认标签为sheet1,sheet2,sheet3,sheet4。如何快速重命名为1月销售表,2月销售表,3月销售表,4月销售表。　　sheet1工作表A1:A4单元格内容是1月销售表,2月销售表,3月销售表,4月销售表。

方法：按下ALT+F11，打开VBE窗口，单击插入——模块，复制下面代码，并运行。Sub 按A列数据修改表名称()On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual ‘手动重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 ‘恢复正常的错误提示Application.Calculation = xlCalculationAutomatic ‘自动重算End Sub

第二种：直接批量重命名Excel工作表。Sub 新工作表名()Dim i As LongApplication.ScreenUpdating = FalseFor i = 1 To Worksheets.CountWorksheets(i).Name = "报表" & iNext iApplication.ScreenUpdating = TrueEnd Sub

上面5种方法，想必能帮你解决Excel工作表批量重命名的问题。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。