昨天有小伙伴问我，他需要将3000多个以姓名命名的JPG文件，改为以部门-身份证号-姓名命名。他加了一天班也没搞定，问我有什么好办法呢？，我发了一个收藏的VBA模块文件给他，他2几钟就完成了！他决定从今天开始跟我学EXCEL了！
视频教程：http://www.365yg.com/i6570688107706843662/#mid=95410599223
应用场景：将文件名由“姓名.JPg”，重命名为“部门-身份证号-姓名.webp”
操作步骤：
第一步，导入VBA模板文件，新建一个EXCEL文档，按ALT+F11 调出VBA 编辑器 →在工程窗口右键选择【导入文件】→选择VBA 模块文件（批量重命名.bas）→关闭VBA 编辑器。
第二步，批量获取文件名，点【开发工具】→【宏】→选择宏“批量获取文件名”→【执行】，弹出浏览文件夹对话框，选择你需要重命名文件所在文件夹，这里我们选择test测试文件夹，确定后，测试文件夹的所有文件的旧版文件名，文件类型，所在位置都列出来了。由于我们要把部门和身份证号放到文件名中，所以我们要用vlookup从员工花名册中将员工的部门和身份证号查找出来，这里将到一个辅助列，在辅助输入公司获取员工姓名，=LEFT(A2,LENB(A2)-LEN(A2))，其中LENB是计算字节数的函数，LEN是计算字符数的函数，LEFT（A2）函数，即从旧版名称的左边截取单元格的中文姓名；VLOOKUP，通过姓名在员工花名册中找出员工的部门和身份证号，并用&把查找出来的部门、身份证号和姓名以及他们中间的小横杆连接起来。公式：=VLOOKUP(E2,员工花名册!B:C,2,0)&"-"&VLOOKUP(E2,员工花名册!B:D,3,0)&"-"&A2，公式写好后，往下填充，新版名称就都出来了。
第三步，批量重命名文件，点【开发工具】→【宏】→选择宏“批量重命名”→【执行】2分钟不到，所有的文件已按要求重命名好了。
这个方法超级实用，超级快速，有兴趣的小伙伴可以试试！
视频加载中...
如果觉得好用，请关注、点赞、评论、转发，你的支持是我坚持的动力，更多的EXCEL技能，大家可以关注今日头条“EXCEL学习微课堂”。如需批量重命名VBA代码文件，请关注、转发后私信联系我。
