很多讀者日常會(huì)用到Excel Power Query和Pivot搭建自己的模型。模型帶有海量的數(shù)據(jù)和計(jì)算過程。很多時(shí)候，只需要把報(bào)表結(jié)果發(fā)送給用戶，手動(dòng)把每個(gè)工作表復(fù)制粘貼為數(shù)值非常繁瑣，VBA可以幫我們迅速解決這一問題。

以下VBA實(shí)現(xiàn)了：

1. 新建一個(gè)空白工作簿。

2. 將當(dāng)前打開的模型工作簿的每一個(gè)可見頁(yè)面（即不包含隱藏工作表）貼值復(fù)制到新工作簿，且保留原有格式。

3.?新工作簿以當(dāng)前模型工作簿名稱+今天日期命名。

代碼由AI生成，測(cè)試可用。學(xué)習(xí)VBA還是有門檻的，AI可以幫我們快速解決問題。遇到報(bào)錯(cuò)，把報(bào)錯(cuò)信息發(fā)給AI，它就會(huì)修正代碼。本文的功能僅兩輪AI對(duì)話就達(dá)到使用需求。