[已解决]用VBA重命名的时候出现1004的错误怎么解决

陌雨落0724

这个是我的代码

Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
    Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub

出现的错误如下图所示，然后我是一共160个sheet，总是在第40个sheet那里出问题如下图所示。有人能解答一下是为什么吗

最佳答案

月排行榜 / 总排行榜

windyjw007

2017-8-2 11:51

工作表名重了。。。{:2312:}

跳转到最佳答案楼层

windyjw007

工作表名重了。。。{:2312:}

砂海

检查 是否  重名 .

大灰狼1976

先看看sheets(1)的A列中有没有重复数据的单元格。

l00l00

改成这样就好了

1. Sub 重命名()
   
2. Dim i&
   
3. For i = 2 To Sheets.Count
   
4.     Sheets(i).Name = "Sheet1(" & i & ")"
   
5. Next
   
6. End Sub

复制代码

爱疯

不如命名为数字，省事