[已解决]工 作 表 名 称 命 名 问 题

我的故事

一个工作簿中有500张工作表，现希望每张工作表的名称都能按照其中某一固定单元格的内容（例如C2）进行重命名。
请各位予以帮忙，万分感谢！！









.

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-21 13:18

回复 我的故事 的帖子
附件： 批量命名工作表.rar (9.82 KB, 下载次数: 4)

2011-4-21 13:22 上传

点击文件名下载附件

1. 
   
2. Sub 工作表批量命名()
   
3. Dim MyName, MyTable As Worksheet
   
4. For Each MyTable In Worksheets
   
5.     MyName = MyTable.Range("C2").Value
   
6.     MyTable.Name = MyName
   
7. Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

sunjing-zxl

回复 我的故事 的帖子
附件： 批量命名工作表.rar (9.82 KB, 下载次数: 4)

2011-4-21 13:22 上传

点击文件名下载附件

1. 
   
2. Sub 工作表批量命名()
   
3. Dim MyName, MyTable As Worksheet
   
4. For Each MyTable In Worksheets
   
5.     MyName = MyTable.Range("C2").Value
   
6.     MyTable.Name = MyName
   
7. Next
   
8. End Sub

复制代码