黄海傲龙汽车配件:在一个EXCEL文件中如何把不同工作表上的内容快速复制到一张新的工作表上? 除了一页一页复...

来源:百度文库 编辑:九乡新闻网 时间:2024/03/28 22:59:40
在一个EXCEL文件中如何把不同工作表上的内容快速复制到一张新的工作表上? 除了一页一页复制粘贴以外的方浏览次数:263次悬赏分:5 | 提问时间:2011-2-15 17:10 | 提问者:tf2000asdf | 问题为何被关闭 其他回答 共4条
按下ALT+F11,菜单:插入-模块,复制下面代码.然后按F5运行Sub tab_name()Sheets.Add After:=Sheets(Sheets.Count)a = Sheets.CountSheets(a).SelectSheets(a).Name = "名单"For x = 1 To a - 1Cells(x, 1) = Sheets(x).NameNextEnd Sub中间的“名单”是新工表的名称,你可以随意起。这是http://zhidao.baidu.com/question/80054714.html提供的另外,再推荐http://blog.sina.com.cn/s/blog_5488e3a90100cn0l.html,这里提供了一个工具箱,专门干这事。 
参考资料:http://zhidao.baidu.com/question/80054714.html