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

2
438

说明:工作簿A.xlsx包含上千张工作表,其中工作表的命名毫无规律,非常乱,也不利于同。

要求:将所有的工作表重命名为1,2,3,4,4,5,6……1000……

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

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

2 条留言

留言

留言不能为空
怎么称呼您?

验证码 *