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(宏实例)
作者:奔跑的金鱼
声明:书写博客不易,转载请注明出处,请支持原创,侵权将追究法律责任
个性签名:人的一切的痛苦,本质上都是对自己无能的愤怒
如果觉得这篇文章对你有小小的帮助的话,记得在右下角点个“推荐”哦,博主在此感谢!
【推荐】中国电信天翼云云端翼购节,2核2G云服务器一口价38元/年
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步