[已解决]VBA批量修改工作表名称

一地芳菲

我想写代码，就是批量自动修改工作表名称，即：工作表名称＝当前工作表的单元格A1的值，然后自动修改各个工作表，以后生的工作表也可以

这段代码怎么写呢？谢谢

[此贴子已经被作者于2009-9-17 13:30:20编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-17 13:54

Sub MySub()
    Dim MySht As Worksheet
    For Each MySht In ThisWorkbook.Worksheets
        If Len(MySht.[A1]) > 0 Then
            MySht.Name = MySht.[A1]
        End If
    Next
End Sub

[此贴子已经被作者于2009-9-17 13:55:13编辑过]

跳转到最佳答案楼层

Hersheys

这个太难了吧

[em06]

amulee

能否举个例子

一地芳菲

例：SHEET1.NAME=SHEET.A1,SHEET2.NAME=SHEET2.A1

就是打开工作簿可以自动修改SHEET表的名称，或者新建表之后，一旦A1非空值即可修改

amulee

Sub MySub()
    Dim MySht As Worksheet
    For Each MySht In ThisWorkbook.Worksheets
        If Len(MySht.[A1]) > 0 Then
            MySht.Name = MySht.[A1]
        End If
    Next
End Sub

[此贴子已经被作者于2009-9-17 13:55:13编辑过]

一地芳菲

谢谢AMULEE老师，以前听过您讲的课，可惜水平太浅没听懂[em04]

amulee

可以参加这里的培训啊。V班正在招生哦

一地芳菲

报名了，还没过，没时间过四段，V的考试成绩达不到160分，郁闷

willxue

好东西，学习了！谢谢各位！

sgyzzz

好东西，学习了！[em01]