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

时间：2017-02-13 18:48:44 阅读：216 评论：0 收藏：0 [点我收藏+]

方法一：

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

使用公式如下：

=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，然后点击按钮即可出现结果。

原文：http://www.cnblogs.com/OliverQin/p/6394878.html

踩

(0)

评论一句话评论（0）

分享档案

更多>