Excel中的VBA脚本 - 根据判断条件批量修改表名，并给指定单元格赋值，最后创建带有超链接的目录

现在我有一个需求，需要把表1名字改为D1,表2改为D1Result，表3改为D2，表4改为D2Result，以此类推，在此基础上对每一个非Result表格的E4单元格赋值，值是当前表的表名。因为表格太多了，不想一个一个手动改，想由VB脚本实现，那么我该怎么写呢？经过一番百度和研究，最终写出来的脚本如下（本地环境可以运行） Sub Run()For i = 1 To Worksheets.Count

>>阅读原文<<