+ -
当前位置:首页 → 问答吧 → 如何快捷重命名多个表名,紧急求助。

如何快捷重命名多个表名,紧急求助。

时间:2011-08-11

来源:互联网

在表内有几百个表,并且有部分是已经修改了名称的,
现在需要做的是:除一个总表之外,其他的表需要  按从右到左的顺序重新改表名,【原来的表名是不规则的】,现在按1、2、3、4、5.......................(从右到左)重新命名就行。

上传的表只是个例,而手头里有10多个表,每个表内有300—800个多个表,手工肯定是搞不啦。

求助各位大虾,万分感激。

附件

如何快捷重命名多个表名.rar(7.74 KB)

2011-8-11 22:27, 下载次数: 13

作者: 080223   发布时间: 2011-08-11

这个用VBA吧,附件供参考,代码写在汇总表里
如何快捷重命名多个表名.rar (20.59 KB)
如何快捷重命名多个表名.rar (20.59 KB)
下载次数: 11
2011-8-11 22:42

作者: cmxxccxx   发布时间: 2011-08-11

方向搞错了?正确是从右到左的哇

作者: 080223   发布时间: 2011-08-11

如何从右到左呢

作者: 080223   发布时间: 2011-08-11

引用:
原帖由 080223 于 2011-8-11 22:52 发表
方向搞错了?正确是从右到左的哇
自己改一下代码
For i = 1 To Sheets.Count  改成 For i = Sheets.Count To 1 step -1 就可以了

作者: cmxxccxx   发布时间: 2011-08-11

哦,谢谢,十分感激!

作者: 080223   发布时间: 2011-08-11

热门下载

更多