用特定单元格内容命名工作表,批量规范杂乱无章的工作表名称

懒人办公

创作者俱乐部成员

下图是某乡镇各个村组的人员信息表,每个工作表中是一个村的人员信息,而工作表并未按照村名进行命名,仍然保持着"Sheet1、Sheet2、Sheet3……”这样的名称,且未按顺序排列,杂乱无章。

通过观察我们发现,工作表名称虽然杂乱无章,但每个工作表的格式是一样的,D列就是村名,我们只需要用D列的第一个村名(D2单元格)为工作表命名,即可规范工作表名称。但这么多工作表,如果一个一个地命名,那就不符合懒人办公的风格了,于是就轮到我们的WPS宏出场了。

  • 第一步:从“开发工具”选项卡中打开“WPS宏编辑器”。

  • 第二步:在WPS宏编辑器中点击“插入”菜单,选择“模块”,插入一个模块“Module1”,当然,如果已经有“Module1”了,那插入的就是“Module2”“Module3”……,这些都不影响,随便在哪个“Module”中操作都可以。

  • 第三步:在“Module1”中输入以下代码:

function 用单元格内容命名工作表(){

for(let 工作表名 of Worksheets){ //遍历所有工作表

let 村名=工作表名.Range('d2').Value2 //将工作表名赋值给“村名”变量

工作表名.Name=村名 //将工作表名改为村名

}

}

注:为方面大家理解,这里用汉字作为变量,并不影响使用。

  • 第四步:点击WPS宏编辑器上方的代码运行按钮。

然后就是见证奇迹的时刻了。

我们看到,现在所有工作表都已经用其D2单元格命名了。怎么样?如此麻烦的事情,几行代码就解决了,是不是很丝滑,很Nice。现在所有工作表名称一目了然,你就可以为所欲为了。

需要素材的话,我们评论区见。

贵州省
浏览 2886
1
24
分享
24 +1
22
1 +1
全部评论 22
 
素材呢
· 广东省
回复
 
学习中……
· 湖北省
1
回复
 
赶紧把代码收藏起来,后续可以留作工作备用,效率性大大提高
· 江西省
回复
 
非常实用,给我带来了很大的帮助,每天的表格工作可以很轻松的完成。
· 安徽省
回复
 
把代码收藏下来,学习一下,等着备用。
· 山东省
回复
 
非常的实用,带来了很大的帮助
· 中国
1
回复
 
非常实用,能有效提高工作效率。
· 贵州省
回复
 
以后不会的都来向大佬学习,非常实用
· 甘肃省
回复
懒人办公

创作者俱乐部成员

欢迎欢迎
· 贵州省
回复
 
我这个小白用户都看的明明白白
· 广东省
回复
懒人办公

创作者俱乐部成员

谦虚了
· 贵州省
回复
 
任舟

创作者俱乐部成员

向大佬学习
· 山西省
回复
懒人办公

创作者俱乐部成员

相互学习,共同进步
· 贵州省
回复
 
张俊

WPS函数专家

很简单,很粗暴,很实用的代码,让工作效率提升的不只是一丁点儿!
· 上海
1
回复
 
以后不会的都来学学,期待大佬更新
· 广东省
1
回复
懒人办公

创作者俱乐部成员

相互学习,共同进步
· 贵州省
回复
 
只能说一句
· 广东省
1
回复
 
ice y

创作者俱乐部成员

感谢大佬,非常实用
· 四川省
1
回复
懒人办公

创作者俱乐部成员

相互学习,共同进步
· 贵州省
回复
 
WPS 冲浪队长

社区管理员

hi,方便加一下企微吗?
· 广东省
回复
懒人办公

创作者俱乐部成员

加了,微信名:珠江钓客
· 贵州省
回复