excel工作簿中新建多个工作表,想要快速的重命名多个工作表,一个个命名太麻烦了,高手帮解决下吧!!

如题所述

按ALT+F11打开VBA编辑器,插入一个模块,插入如下代码,把光标停在代码中间,按F5运行。
Public Sub lwy()
For i = 1 To Sheets.Count
Sheets(i).Name = "表" & i '这个根据你的命名方法自己改一下。
Next

End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-11-13
就这点事,发个问题再等答案,再着手操作,这么多时间都可以一个个修改完了。
第2个回答  2010-11-13
可以使用透视表的分页显示功能快速新建表