防护网定制:excel表格如何导出工作表标签1

来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 18:35:42
我是用excel表格来做个人档案的每个工作表为一个人的资料!现在有100多人了,我想统计一个名单,也就是说把每个工作表的标签都复制出来整理在一起弄一张名单!每个复制标签很麻烦呀!请教各位有没有什么方法可以将excel表格里面的工作表标签(档案姓名)都导出? 让他们成一张名单呢?

 

按下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