批量修改工作表名称

适用于一张表中有大量的sheet，这些sheet需要按照一定的规律命名

1、代码

　　在表格中按下Alt+F11打开宏命令编辑区。插入如下的代码，然后运行。

Sub EditSheetName()
    For i = 2 To Worksheets.Count
        Worksheets(i).Name = "信息系统情况（系统" & （i-1） & "）"
    Next
End Sub

　　如果出现：1004，改名称已被占用，则使用 on error resume next

　　原因是：需要改的和旧的前面名称一致，会提示此错误。建议先整体改其他的名称，避免一致。再改成自己想要的名称。

2、忽略错误

Sub EditSheetName()

　　 For i = 2 To Worksheets.Count 
　　 On Error Resume Next 
　　　　 Worksheets(i).Name = "信息系统情况（系统" & (i-1)& "）" 
Next End Sub

3、笔记：

sub　....　end sub　　定义的一个方法
方法名是EditSheetNeme

EXCEL中索引从1开始，worksheets（1）代表第一个工作表。

worksheets（"sheetname"）代表工作表名为sheetname的工作表。
On Error Resume Next 忽略错误继续下一步

 

转载于:https://www.cnblogs.com/smartmsl/p/10971804.html