VBA For Excel:重命名工作表为1,2,3……

2
2211

说明:工作簿A.xlsx包含上千张工作表,其中工作表的命名毫无规律,非常乱,也不利于同。
要求:将所有的工作表重命名为1,2,3,4,4,5,6……1000……

这个VBA比较简单,通过获取所有工作表的总数,来写一个循环就可以。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub rename()
Dim i, m, t As Integer
Dim s As String
 
m = 0
t = Worksheets.Count
s = ""
 
For i = 1 To t
 
Worksheets(i).Name = s & i + m
 
Next i
 
End Sub

参数m是为了方便重命名的时候从某个之开始,比如从21开始命名,那么m=20就可以;参数s是为了重命名过程中同之前的工作表同名而发生错误而设置的,如重命名之前的第三个工作表名字为3,这是从1开始编号命名,就会发生错误,所以此时设置s=”ZAS”(随便设置),就是加上前缀ZAS,从而避免出现错误,然后再设置s=””,运行之后,就可以命名为1,2,3,4,5……1000……

2 评论

发表回复

Please enter your comment!
Please enter your name here