[已解决]批量改工作簿名称

imshaoxiao

小弟刚开始学vb，现在想实现把每个工作簿的名称改成sheet1中单元格内的值，一直出错。哪位帮助看看问题在哪？

Sub re1()
Dim n As Integer
For n = 1 To 36
Sheetn.Name = Sheet1.Range("a" & n)
Next
End Sub

谢谢！

最佳答案

月排行榜 / 总排行榜

QLZ0602

2014-5-22 17:50

Sheets(n).Name = Sheet1.Range("a" & n)

跳转到最佳答案楼层

qh8600

是工作簿还是工作表

QLZ0602

Sheets(n).Name = Sheet1.Range("a" & n)

imshaoxiao

谢谢各位，自己解决了。应该改成
Sub re1()
Dim n As Integer
For n = 1 To 36
Sheets(n).Name = Sheets(1).Range("a" & n)
Next
End Sub

imshaoxiao

QLZ0602 发表于 2014-5-22 17:50
Sheets(n).Name = Sheet1.Range("a" & n)

我本来也改成这样的，但是运行还是有问题，不知道为啥