最近小编遇到点问题就是需要给180个扫描的文件重命名？一个一个的去搞实在是烦的要死，小编是个非常懒的人，据说excel非常的强大，就苦心钻研了一上午终于搞定，话不多说来看看效果。

首先就是打开VBA代码编辑器ALT F11，建立一个模块，粘贴进去以上VBA代码。接下来见证奇迹的时刻。

打开宏就会发现有两个宏，首先运行第一个宏，就是批量提取一个文件夹中的文件名

选择你要搞定的文件

选择你要搞定的文件然后确定，你就会发现所有的名称都被提取出来了，

然后在新版名称添加进入新 的文件名

然后在新版名称下添加进入新的文件名，切记一定要添加扩展名。然后选择另外一个批量重命名的宏，点击确定，然后你就发现。。。。。。。。

小编由于没有输入扩展名出现了这个状况，所以一定要切记。是不是很神奇？

有需要的朋友点击关注，私信我，我发代码给你们，实现高逼格的办公。