VBA提取所有工作表名

96990404 · 发表于 2015-4-2 15:18

好文章,学习了.

excelwinner · 发表于 2015-4-2 17:16

FOR NEXT 学习了

欧阳11 · 发表于 2016-4-4 14:11

一意孤行发表于 2010-5-11 18:17
Sub test()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, "Z") = Sheets(i).Name

老师您好，我怎么将这个代码放至个人宏工作薄就无法运行呢？运行就只能得到当前工作表的表名

songmin027 · 发表于 2016-4-4 20:09

一意孤行发表于 2010-5-11 18:17
Sub test()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, "Z") = Sheets(i).Name

向高人学习！

songmin027 · 发表于 2016-4-4 20:20

jhwjm369 发表于 2015-4-2 12:02
如果汇总本身这个表不包括在内该怎么处理啊。

是哦？？
那就删掉第一行？？

songmin027 · 发表于 2016-4-4 20:25

jhwjm369 发表于 2015-4-2 12:02
如果汇总本身这个表不包括在内该怎么处理啊。

弄明白了，i=2就可以了

3438107102 · 发表于 2016-10-27 15:33

谢谢各位VBA高手，学习了

lw28050224 · 发表于 2016-10-27 22:56

本帖最后由 lw28050224 于 2016-10-27 22:59 编辑

我比较喜欢用公式
1、定义名称,name=replace(get.workbook(1),1,find("]",get.workbook(1)),"")&t(nows())
解释一下,get.workbook(1)提取的工作表名称带有地址，需要用replace函数将地址去掉
增加t（now（）），将其变为易失性函数，可是实时更新
2、增加一张工作表，=iferror(index(name,row(2:2)),"")
3、大功告成记得给好评哦，嘻嘻

永中冯少 · 发表于 2017-1-18 12:30

提取工作作名称，用函数

天城0003 · 发表于 2017-12-19 10:32

学习了啊。。。。。

		自动登录	找回密码
密码			免费注册