如何批量修改10个工作表名字，修改成功则弹出修改成功，如果没有变动则显示无修改内容

minren118

feel5114 发表于 2018-8-16 18:58
请问你说的【Excel催化剂】在什么地方？

你可以加我QQ或微信：190262897，我给你发，或者自己百度下【Excel催化剂】

minren118

feel5114 发表于 2018-8-16 19:30
请问03版的教程有么，我看你那个好像都是高版本的。。。

自己个人电脑用吧，公司电脑不给用高版本的话，没必要和自己过不去，还用15年前的产品，IT软件世界可是一年一大变

feel5114

minren118 发表于 2018-8-18 14:33
自己个人电脑用吧，公司电脑不给用高版本的话，没必要和自己过不去，还用15年前的产品，IT软件世界可是一 ...

请问高版本的那个比较好用，高版本是不是都要付费的？

feel5114

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

非常感谢，请问能不能给我个注释，，我不吗，明白你写的那些代码是什么意思，有注释的话，我自己好琢磨。。要不然自己学不会

feel5114

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

麻烦有空的话，帮我给个注释吧，这样我如果表格下次不够用了，，我自己还可以添加第3第四列

feel5114

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

你发给我这个表格写11和12怎么就没有修改的地方了，是不是什么地方不对？

feel5114

YZC51 发表于 2018-8-16 23:11
谢谢鲜花鼓励，请参考！

可以给我留个你的QQ么，我加上问你方便些，我想问下你有几句代码表示的意思

YZC51

抱歉！是我的疏忽。附件已经修改，请参考！
批量修改10个工作表名字.rar (23.61 KB, 下载次数: 2)

2018-8-19 06:43 上传

点击文件名下载附件

feel5114

YZC51 发表于 2018-8-19 06:43
抱歉！是我的疏忽。附件已经修改，请参考！

我想问下，如果我想加入个第三列代码这样写的话对不对的

Sub RenameWorksheets3()
    For i = 29 To 43 'Worksheets.Count
      Worksheets(i).Name = Sheet1.Cells(i - 28, 7).Value
       Sheet1.Hyperlinks.Add Cells(i - 28, 8), ThisWorkbook.Path & "\" & ThisWorkbook.Name, Sheet1.Cells(i - 28, 7) & "!A1", , "点击进入表格"
      Application.DisplayAlerts = True
    Next
    With Range("H1:H14").Font
        .Name = "宋体"
        .Size = 12
        .Bold = True
    End With
   MsgBox "修改完成！"
End Sub

YZC51

应该可以的，试试吧！