就任性!一键批量更改工作表名称.pdfVIP

就任性！一键批量更改工作表名称

您问我为啥突然问这话，那段小代码对我们今天的问

题有所帮助。我们今天分享的内容是——如何一键批量修

改工作表名称。照例举个例子，如下图的A列所示，工作

表名是一些可爱家伙。现在，我们想把工作表名称，

根据E:F列的匹配信息，修改为如下形式，部门-人名：（栗

子里表名修改的规则，就是依照E:F的信息，在每个人名前

增加部门的前缀）我们可以先把该工作簿现有工作表

的名称提取出来，放置在表格的A列。如此一来，我们就

可以很方便的利用函数公式，比如IF、VLOOKUP函数等，

根据E:F列的内容，对表名做针对性的修改。看我小眼神，

这就用到了我们之前说的VBA常用小代码系列001，一键

生成工作表目录不是？利用该段小代码，一键我们就

可以把表名提取到A列了。当然，那期的代码是批量提取

工作表名称并建立超链接，我们这里不需要建立超链接，

代码可以简化如下：Subml()DimshtAsWorksheet,

k[a:a].ClearContents清空A列内容[a:a].Number