在VBA中，如果你想去除Excel单元格中的公式，并只保留公式计算的结果，可以使用以下代码：
```vba
Sub RemoveFormulas()
Dim ws As Worksheet
Dim cell As Range
' 设置要处理的sheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要更改sheet名称
' 遍历sheet中的所有单元格
For Each cell In ws.UsedRange
' 检查单元格是否包含公式
If cell.HasFormula Then
' 如果单元格包含公式，则将公式替换为其结果
cell.Value = cell.FormulaR1C1
End If
Next cell
End Sub
```
这段代码会遍历指定工作表中的所有单元格，检查每个单元格是否包含公式。如果包含公式，它将使用单元格的`FormulaR1C1`属性来获取公式，并将单元格的值设置为该公式的结果。
要运行此宏，请按照以下步骤操作：
1. 打开Excel，然后按 `Alt + F11` 打开VBA编辑器。
2. 在VBA编辑器中，插入一个新模块（右键点击VBAProject(你的工作簿名称)，选择Insert > Module）。
3. 将上述代码复制并粘贴到新模块中。
4. 修改`Set ws = ThisWorkbook.Sheets("Sheet1")`中的`"Sheet1"`为你要处理的工作表名称。
5. 关闭VBA编辑器，然后按 `Alt + F8`，选择`RemoveFormulas`宏，并运行它。
这样，所选工作表中的所有单元格公式就会被其计算结果替换。
