如何一闪性更改工作簿名称

白天黑夜 · 发表于 2012-9-19 14:52

我现在的工作表里共有130多张工作簿，每张工作簿的名称都是默认的SHEET1，SHEET2......如何快速地将这些工作簿的名称按顺序改为1,2,3,......跪求解答!{:soso_e191:}{:soso_e191:}{:soso_e191:}

ctp_119 · 发表于 2012-9-19 15:07

Sub ctp_119()
Dim sh As Worksheet
Dim i As Integer
For Each sh In Worksheets
i = i + 1
sh.Name = i
Next
End Sub

复制代码

运行上面的代码即可一闪更改。

白天黑夜 · 发表于 2012-9-19 15:17

ctp_119 发表于 2012-9-19 15:07
运行上面的代码即可一闪更改。

有没有公式啊？代码不会用嘎！

ctp_119 · 发表于 2012-9-19 15:33

公式能改工作表名？
把代码复制到标准模块中，按F5运行即可

白天黑夜 · 发表于 2012-9-19 15:52

ctp_119 发表于 2012-9-19 15:33
公式能改工作表名？
把代码复制到标准模块中，按F5运行即可

为什么我照样了，但运行不了，没反应！我是菜鸟！我很悲伤！

白天黑夜 · 发表于 2012-9-19 15:53

白天黑夜发表于 2012-9-19 15:52
为什么我照样了，但运行不了，没反应！我是菜鸟！我很悲伤！

已经好了，太感谢了！

白天黑夜 · 发表于 2012-9-19 16:11

ctp_119 发表于 2012-9-19 15:33
公式能改工作表名？
把代码复制到标准模块中，按F5运行即可

我能追加一个问题吗？就是我要把工作簿改名的用意在于想引用工作簿的名称。。好用这个函数=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))但是为什么我选中所有的工作簿，并中同一位置复制此代码，所有的工作簿都显示一个值，怎样才显示正确？！或是还有妙点子？

白天黑夜 · 发表于 2012-9-19 16:13

请见附件！

wnh728 · 发表于 2012-9-19 16:57

还真是个技术，学一手！

ctp_119 · 发表于 2012-9-20 08:37

白天黑夜发表于 2012-9-19 16:11
我能追加一个问题吗？就是我要把工作簿改名的用意在于想引用工作簿的名称。。好用这个函数=RIGHT(CELL("f ...

没有明白意思！！！

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

[讨论] 如何一闪性更改工作簿名称