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(宏实例)

posted @   OLIVER_QIN  阅读(1765)  评论(0编辑  收藏  举报
点击右上角即可分享
微信分享提示