VBA【遍历每个工作表并将工作表表名赋予B2单元格】

方法一：

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

使用公式如下：

=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
    Next
End Sub

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

附件下载地址：点击下载Excle（宏实例）