设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 分享区 › Excel 自习室 › 学习分享:提取各个工作表名到A1

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 2205|回复: 3

[VBA] 学习分享:提取各个工作表名到A1

发表于 2012-10-23 15:58 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

学习分享:提取各个工作表名到A1
瞬间生成!

Sub 提取工作表名字到A1()
For i = 1 To Worksheets.Count
Worksheets(i).Range("A1") = Worksheets(i).Name
Next i
End Sub

复制代码

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2012-10-23 16:21 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

谢谢{:35:}。。。。。。。。。。。。

回复

使用道具举报

发表于 2012-10-23 17:17 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

学习中，路过……

回复

使用道具举报

发表于 2012-10-23 22:49 | 显示全部楼层

路过，学习

回复

使用道具举报

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-29 19:48 , Processed in 0.247811 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表