按着ctrl键拖动标签到空白处释放,就可以复制这个表了,标签就是下面显示表名的地方,默认是sheet1,sheet2.sheet3........
如果工作表名有规律(如sheet1,sheet2......)就好办,假定要引用sheet1....sheet100工作表A5单元格到当前工作表的A列,可在A1输入公式:
=INDIRECT("SHEET"&ROW()&"!A5")
将公式向下复制。
按下ALT+F11,菜单:插入-模块,复制下面代码.然后按F5运行
Sub tab_name()
Sheets.Add After:=Sheets(Sheets.Count)
a = Sheets.Count
Sheets(a).Select
Sheets(a).Name = "名单"
For x = 1 To a - 1
Cells(x, 1) = Sheets(x).Name
Next
End Sub
中间的“名单”是新工表的名称,你可以随意起。
这是http://zhidao.baidu.com/question/80054714.html提供的
另外,再推荐http://blog.sina.com.cn/s/blog_5488e3a90100cn0l.html,这里提供了一个工具箱,专门干这事。
貌似没有其他方法,除了宏