方法一：

 存在缺陷：选中所有单元格，批量生成公式时候，每次需要点击进入工作表点击单元格--进入编辑状态，然后公式才会生效

使用公式如下：

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)

附件下载地址：

方法二：

使用宏编程进行复制，代码如下：

Sub a()    For i = 1 To ActiveWorkbook.Worksheets.Count    ActiveWorkbook.Worksheets(i).Cells(2, 2).Value = Worksheets(i).Name    NextEnd Sub

进入Excle，然后点击按钮即可出现结果。

附件下载地址：