[已解决]能否批量更改工作表名称？

wangxiangru · 发表于 2009-11-9 22:33

能否批量更改工作表名称，如SHEET1 SHEET2。。。批量改成 1 2。。。

最佳答案

雨狐

2009-11-9 22:38

MZIEXYis.rar (6.62 KB, 下载次数: 20)

雨狐 · 发表于 2009-11-9 22:38

MZIEXYis.rar (6.62 KB, 下载次数: 20)

wangxiangru · 发表于 2009-11-9 22:41

真行，高手

守望麦田 · 发表于 2009-11-9 22:51

学习来了

勤快的猫 · 发表于 2009-11-9 23:27

Sub n()
Dim x As Integer
For x = 1 To Worksheets.Count
Sheets(x).Name = x
Next x
End Sub

[em04]

wangxiangru · 发表于 2009-11-10 21:32

5楼写的也很好，问一下可否把更改后的序号写成A.B.C....

波可 · 发表于 2009-11-10 22:24

点一下就OK了,会点,就是自己不会做

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