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

【求助帖】请及时确认最佳答案，下次提问时可以得到更多关注，问题可以更快解决

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

这儿有肥猫

有问题，工作表名是不可以重复的~8和30行对应的人名重复

好的，把8的那项去了就可以了

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

复制代码

易安1

1. Sub test()
   
2. Dim arr, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.[a1].CurrentRegion
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 2) <> "" Then
   
7.         d(arr(i, 1)) = arr(i, 2)
   
8.     End If
   
9. Next
   
10. On Error Resume Next
    
11. For k = 2 To Sheets.Count
    
12.     Sheets(k).Name = d(CLng(Sheets(k).Name))
    
13. Next
    
14. End Sub

复制代码

易安1

{:22:}

kilyj300

问题来了，但是我要从文字转成数字（A列跟B列换一下位置）就不行了，是为什么呢？？

易安1

kilyj300 发表于 2014-9-5 10:46
问题来了，但是我要从文字转成数字（A列跟B列换一下位置）就不行了，是为什么呢？？

你要懂代码 自然就明白了 ，这个已经修改