如何在每个excel工作表的A1单元格内取到各自对应工作表名

asdfkx

如题，工作簿内有 表名为：a表、b表、c表、d表、......等若干工作表，要在a表的A1单元格内取到表名“a表”，在b表的A1单元格内取到表名“b表”，其余表类同，请教大师如何写该公式。

asdfkx

使用 =MID(CELL("filename"),FIND("]",CELL("filename"))+1,256) 这个公式取得是当前表的表名，且其他表采用该公式后，所有表的A1的值均是当前表的表名了。

asdfkx

木有大神可以解决以下么

1578278106

1. Sub shtName()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         sht.Range("a1") = sht.Name
   
5.     Next
   
6. End Sub
   

复制代码

baksy

请上传附件，加说明。

cpq4404

在《a表》按住SHIFT点最后一个表标签，即选中全部工作表，在A1输入公式“=MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME"))+1,256)”，即可将每表表名表在该表的A1单元格。

ZhouFfett

asdfkx 发表于 2016-8-25 18:21
使用 =MID(CELL("filename"),FIND("]",CELL("filename"))+1,256) 这个公式取得是当前表的表名，且其他表采 ...

CELL函数的语法：
CELL(info_type,[reference])

其中的参数Reference如果省略，则取Excel程序最后更改的单元格的信息，该单元格可能属于另一个工作表，甚至可能是另一个工作簿。

因此你的公式要改为：
=MID(CELL("filename",a1),FIND("]",CELL("filename",a1))+1,256)

asdfkx

1578278106 发表于 2016-8-25 19:17

VBA现在都看不会了。。不会用了。。

asdfkx

cpq4404 发表于 2016-8-25 20:27
在《a表》按住SHIFT点最后一个表标签，即选中全部工作表，在A1输入公式“=MID(CELL("FILENAME",A1),FIND("] ...

这个不能解决我在二楼提出的问题。

asdfkx

ZhouFfett 发表于 2016-8-25 20:58
CELL函数的语法：
CELL(info_type,[reference])

太好了，完美解决问题，谢谢。