else vba 表格去公式保留数据

您可以使用VBA编写一个宏来去除表格中的公式保留数据。以下是一个示例代码：

Sub RemoveFormulasInTable()
    Dim tbl As ListObject
    Dim As Range
    Dim cell As Range
    
    ' 设置要处理的表格范围
    Set tbl = Sheet1.ListObjects("Table1") ' 将 "Table1" 替换为您的表格名称
    
    ' 禁用计算
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' 循环处理表格中的每个单元格
    For Each rng In tbl.DataBodyRange
        For Each cell In rng
            If cell.HasFormula Then
                ' 将公式替换为值
                cell.Value = cell.Value
            End If
        Next cell
    Next rng
    
    ' 启用计算
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

在上述代码中，将 `Sheet1` 替换为您想要处理的工作表。然后，根据您的实际情况，将 `Table1` 替换为您要处理的表格名称。

此代码会遍历表格中的每个单元格，并检查是否存在公式。如果存在公式，则将其替换为值。最后，启用计算以确保结果正确。

在运行宏之前，请确保在Excel中启用了开发人员选项卡，并将宏的安全性设置为允许运行宏。