求修改一下语句

lk710618

各位老师，我是一个业余的Excel爱好者，我的基础很底，但我有点儿痴迷Excel的各种神奇功能，经常会自创、改良一些工作中常用的资料，并乐此不疲的自我升级完善


这不，我做的一个目录直通资料需要增加一些功能，但遇到了一点困难，不会修改，希望老师能够相助，表中如截图所示

这个宏大体能用，但有2个问题，我不知道怎么修改了，麻烦老师指点一下
1、E列最后一个要改的名称，宏修改不了，不知道什么原因(表中，“目录”左侧有一个隐藏的sheet，可能跟这个表有关，但这个表不能删)
2、当E列名称多于B列目录的名称时，宏会报错，如何加一句忽略不报错的语句？

A刘志勇

你试试吧，送红花

shiruiqiang

饮冰e士

Sub byzz()
Dim sh As Worksheet, i%, Endrow%
Set sh = Sheets("目录")
Endrow = sh.Range("E65536").End(xlUp).Row
For i = 2 To Endrow
    If Cells(i, 5) <> "" Then
        Sheets(i + 1).Name = Cells(i, 5)’从第3个开始？
    End If
Next

    Range("F1").Select
End Sub

第1个隐藏，是第2个是目录，从第3个开始重命名，是这意思？

lk710618

A刘志勇 发表于 2024-9-28 22:16
你试试吧，送红花

谢谢您的帮助


在您的帮助下，我勉强看懂了代码的含义，完善了自己想升级的表单，全部实现了自己的设想。
我也把这个完成升级后的表单分享出来，用得到的朋友可以下载使用，同时也自证一下，我只是一纯粹的Excel爱好者，只是我对表单的功能优化、对图表的美化有自己执拗的追求罢了

lk710618

shiruiqiang 发表于 2024-9-28 22:23

谢谢帮助
你的方案也能满足我的需求，再次感谢