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

方法一：

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

使用公式如下：

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

附件下载地址：点击下载

方法二：

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

Sub a()

    For i =  To ActiveWorkbook.Worksheets.Count

    ActiveWorkbook.Worksheets(i).Cells(, ).Value = Worksheets(i).Name

    Next

End Sub

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

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