vba 如何实现多工作表的工作薄公式转数值并另存为新工作薄

在VBA (Visual Basic for Applications) 中，你可以编写宏来遍历工作簿中的多个工作表，将公式转换为数值（去除引用），然后将处理后的数据另存为一个新的工作簿。下面是一个基本的步骤指南：

1. **获取工作簿和工作表对象**：
使用 `Application.Workbooks` 可以获取所有打开的工作簿，而 `ActiveSheet` 或 `Worksheets("SheetName")` 可以获取当前活动的工作表。你需要遍历这些对象。

2. **检查公式是否存在**：
对于每一行和每列，你可以使用 `IsFormula()` 函数判断单元格是否含有公式。如果是公式，继续下一步；如果不是，直接读取其值。

3. **提取数值**：
如果是公式，使用 `.Value` 属性将其转化为数值。如 `Range("A1").Value` 将返回 A1 单元格的值。

4. **处理和存储数据**：
创建一个新的工作簿（`NewWorkbook`）并获取第一个工作表 (`Worksheets(1)`）。将每个工作表的数据逐行复制到新工作簿的新工作表中。

5. **循环遍历所有工作表**：
使用一个 `For Each` 循环结构，针对工作簿中的每个工作表，执行以上操作。

6. **保存新工作簿**：
完成数据转移后，使用 `NewWorkbook.SaveAs` 方法指定新工作簿的路径和文件名。

7. **关闭旧工作簿和释放资源**：
最后别忘了关闭原始工作簿(`ActiveWorkbook.Close`) 和删除它(`Set ActiveWorkbook = Nothing`)。

Sub ConvertAndSaveFormulas()
    Dim ws As Worksheet
    Dim newWorkbook As Workbook
    Dim rng As Range
    
    '假设原始工作簿名为wbOriginal, 新工作簿名为wbNew
    Set wbOriginal = ThisWorkbook '当前工作簿
    Set newWorkbook = Workbooks.Add() '创建新工作簿
    
    '遍历原工作簿的所有工作表
    For Each ws In wbOriginal.Worksheets
        '遍历工作表的每个单元格
        For Each rng In ws.UsedRange
            If Not rng.IsFormula Then
                '非公式单元格直接赋值
                newWorkbook.Worksheets(1).Cells(ws.Row, rng.Column).Value = rng.Value
            Else
                '公式单元格先转化为值
                newWorkbook.Worksheets(1).Cells(ws.Row, rng.Column).Value = rng.Value
            End If
        Next rng
    Next ws

    '保存新工作簿并关闭原工作簿
    newWorkbook.SaveAs Filename:="C:\Temp\NewWorkbook.xlsx"
    newWorkbook.Close SaveChanges:=False
    wbOriginal.Close SaveChanges:=True
End Sub

记得在运行此宏之前，确保有足够的权限，并且保存原始工作簿以防意外。