[已解决]求助：：：把相对应的工作表名称以B列命名！！！

kilyj300

求助：：：把相对应的工作表名称以B列命名！！！

最佳答案

月排行榜 / 总排行榜

wayy

2014-9-5 10:23

1. Sub aaa()
   
2. Dim i As Long
   
3. Dim Str As String
   
4. On Error Resume Next
   
5. For i = 1 To [a65536].End(xlUp)
   
6.   Str = Cells(i, 1)
   
7.   Sheets(Str).Name = Cells(i, 2)
   
8. Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

wayy

1. Sub aaa()
   
2. Dim i As Long
   
3. Dim Str As String
   
4. On Error Resume Next
   
5. For i = 1 To [a65536].End(xlUp)
   
6.   Str = Cells(i, 1)
   
7.   Sheets(Str).Name = Cells(i, 2)
   
8. Next
   
9. End Sub

复制代码