[已解决]怎么样批量在各工作表的A1单元格提取各工作表名称

Qinchen

麻烦大家，帮忙看下，怎么样批量在各工作表的A1单元格提取各工作表名称 ？谢谢！

最佳答案

月排行榜 / 总排行榜

业余爱好者

2012-10-23 14:13

用公式也可以

步骤:1,同时选中全部工作表

2,输入公式=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)后回车

跳转到最佳答案楼层

水吉果果

用宏代码实现试试看，Alt+F11打开代码框：
Macro2是我直接录制的宏代码
Macro3是我删减后的简洁点的代码
两个运行结果都是提取工作表的表名

你把三个工作表的A1单元格都情况，点表“目录”的绿色按钮“提取工作表名称”即可；
如果添加新的工作表，只需要添加对应代码即可

业余爱好者

用公式也可以

步骤:1,同时选中全部工作表

2,输入公式=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)后回车

Qinchen

业余爱好者 发表于 2012-10-23 14:13
用公式也可以

步骤:1,同时选中全部工作表

谢谢，答案可行。{:11:}

Qinchen

水吉果果 发表于 2012-10-23 14:11
用宏代码实现试试看，Alt+F11打开代码框：
Macro2是我直接录制的宏代码
Macro3是我删减后的简洁点的代码
...

谢谢果果，向您学习图表。

开心二点

1. Private Sub Worksheet_Activate()
   
2.     [a1] = Range("a1").Parent.Name
   
3. End Sub
   

复制代码

jlf2003

请查看VBA生成的范例地址:
http://www.excelpx.com/thread-288392-1-1.html