我在工作中经常要处理EXCEL表格，有一批表格只要更改1、2处内容，然后要不停的另存为以更改后的内容为文件名命名的新表格，比方说：更改内容“DD123”“WW145”，然后要另存为“DD123-WW145.xls”。要不断的重复、不断的重复、不断的重复，我的生命就在这样重复之中慢慢被耗光。 还好我是个懒人，一个真正的懒人是不会让生命就此无意义的流失的，于是改造就此开始，跟我来吧。 因为家里没装微软的office，就用WPS代替吧。工具/原料more微软的office或者WPS方法/步骤1/6分步阅读首先我们为excel添加一个按钮。2/6

然后把按钮名称改为“另存为”。

3/6

然后双击这个按钮，进行这个按钮的代码编写。开始和结尾已经自动写好了。

4/6

在代码的开始和结尾之间插入我们要用的代码，我把代码也写一下吧，方便复制。

-------------------以下是代码-----------------------------------

已B3单元格-C3单元格内容为文件名另存一份到当前目录下

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path \ Range(B3) - Range(C3).Value .xls

保存活动的工作簿

ActiveWorkbook.Save

-------------------以上是代码-----------------------------------

已英文单引号开头的内容是注释，不参与代码运行。

5/6

WPS和微软的office还是有一定的区别的，工作上我完全使用office，推荐用新一点的版本，不要再用2003了，虽然经典但毕竟时代在进步。

编辑好按钮的代码WPS需要按“退出设计”才能运行。

6/6

然后就可以了，改一个内容，按一下另存为，我使用过程中，效率提升在50%以上，配合一些别的代码，效率轻轻松松翻倍。

注意事项

office的版本不同，代码并不一定能通用，我是已office2013为基础设计的代码。

excelVBA另存为代码按钮