Excel 工作表批量贴值另存

很多读者日常会用到Excel Power Query和Pivot搭建自己的模型。模型带有海量的数据和计算过程。很多时候，只需要把报表结果发送给用户，手动把每个工作表复制粘贴为数值非常繁琐，VBA可以帮我们迅速解决这一问题。

以下VBA实现了：

1. 新建一个空白工作簿。

2. 将当前打开的模型工作簿的每一个可见页面（即不包含隐藏工作表）贴值复制到新工作簿，且保留原有格式。

3. 新工作簿以当前模型工作簿名称+今天日期命名。

代码由AI生成，测试可用。学习VBA还是有门槛的，AI可以帮我们快速解决问题。遇到报错，把报错信息发给AI，它就会修正代码。本文的功能仅两轮AI对话就达到使用需求。