求助：引用另一表中单元格为其他表命名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

现在需要对一系列表进行重命名：sheet1-sheet80，分别用DATAsheet的B1-B80重命名
i = 1
Do Until i = 81
    Dim sname As String
    sname = Sheets("Datasheet").Range("B" & i ).Value
    Sheets("sheet" & i).Select
*   Sheets("sheet" & i).Name = sname
    i=i+1
Loop
*那一行会出现1004错误，应用程序定义或对象定义错误
应该如何修改？谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：单元格 sheets Select string sheet 求助 单元

这个比较难。。。

这是VBA吗？没看懂，惭愧

看你错误的描述，有可能是sname不是一个有效地字符串（比如空字符，和其他sheet名重复的字符等）

[titter]谢谢！

1.这行代码中，请注意文件扩展名为xls还是xlsx
2.dir()函数将返回按条件第一个找到的文件名,如果第一个找到的文件是本文件的话，while不会执行