VBA

您所在的位置：网站首页 › 如何更改工作表名称 › VBA

VBA

2024-07-13 04:36| 来源: 网络整理| 查看: 265

适用于一张表中有大量的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 忽略错误继续下一步

【本文地址】

VBA

VBA

今日新闻

推荐新闻