您问我为啥突然问这话,绝壁不是我犯抽,而是那段小代码对我们今天的问题非常重要。 我们今天分享的内容是——如何一键批量修改工作表名称。 举个例子,如下图的A列所示,工作表名是一些可爱家伙。 现在,我们想把工作表名称,根据E:F列的匹配信息,修改为如下形式,部门-人名: (栗子里表名修改的规则,就是依照E:F的信息,在每个人名前增加部门的前缀) 首先,我们把该工作簿现有工作表的名称提取出来,放置在表格的A列。这样一来,我们就可以很方便的利用函数公式,比如IF、VLOOKUP函数等,根据E:F列的内容,对表名做针对性的修改。 看我小眼神,这就用到了我们之前说的VBA常用小代码系列001,一键生成工作表目录不是? 利用该段小代码,一键我们就可以把表名提取到A列了。 当然,那期的代码是批量提取工作表名称并建立超链接,我们这里不需要建立超链接,代码可以简化如下: Sub ml() 第二步,我们把新的工作表名称用函数计算出来,放在表格的B列。 该例中的E:F列提供了每个人员的部门参数,我们可以在B2输入公式,并向下复制填充: =IFERROR(VLOOKUP(A2,E:F,2,)&'-'&A2,A2) 最后,就是一键更名了。 代码也不长,如下: Sub rename() 看下动画效果: |
|
来自: L罗乐 > 《VBA常用小代码》