[已解决]工作表名称以B列命名！！！

kilyj300

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

最佳答案

月排行榜 / 总排行榜

kevinshe

2014-9-5 11:56

kilyj300 发表于 2014-9-5 11:33
没人回贴吗？？在线等，，求帮忙

以下这个是按照sheet10的内容做的

1. Sub rename()
   
2. With Sheets("sheet10")
   
3.      lr = .[a65536].End(xlUp).Row
   
4.      If lr > ActiveWorkbook.Sheets.Count Then
   
5.         For i = ActiveWorkbook.Sheets.Count + 1 To lr + 1
   
6.             Sheets.Add After:=Sheets(Sheets.Count)
   
7.         Next
   
8.      End If
   
9.      
   
10.      For j = 2 To lr+1
    
11.          On Error Resume Next
    
12.          Sheets(j).Name = .Cells(j - 1, 1)
    
13.      Next
    
14. End With
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

这儿有肥猫

重复贴？

kilyj300

不是的

kilyj300

没人回贴吗？？在线等，，求帮忙

kevinshe

kilyj300 发表于 2014-9-5 11:33
没人回贴吗？？在线等，，求帮忙

是按照sheet 8里的还是sheet 10里的

kevinshe

kilyj300 发表于 2014-9-5 11:33
没人回贴吗？？在线等，，求帮忙

以下这个是按照sheet10的内容做的

1. Sub rename()
   
2. With Sheets("sheet10")
   
3.      lr = .[a65536].End(xlUp).Row
   
4.      If lr > ActiveWorkbook.Sheets.Count Then
   
5.         For i = ActiveWorkbook.Sheets.Count + 1 To lr + 1
   
6.             Sheets.Add After:=Sheets(Sheets.Count)
   
7.         Next
   
8.      End If
   
9.      
   
10.      For j = 2 To lr+1
    
11.          On Error Resume Next
    
12.          Sheets(j).Name = .Cells(j - 1, 1)
    
13.      Next
    
14. End With
    
15. End Sub
    

复制代码

kilyj300

是的，不行吖

kilyj300

可以了，谢谢

kilyj300

全是错的

su45

你这“可以了，谢谢”、“全是错的”都是对谁说的？

今后，要对谁说，就点他帖子左下角的“回复”，他才知道你答复了他！