Excel VBA-将单元格替换为特定公式的值

我有一个很大的Excel，里面有很多公式。我想将此Excel保存为值，但仅用于某些公式，而不是所有公式

我使用这个VBA脚本，但它用值替换所有公式。例如，如何仅替换包含公式SUM的所有单元格-可能包含=SUM(

---

您必须添加如下检查条件，以测试单元格是否包含求和公式

Sub Saveasvalue()
    Dim wsh As Worksheet
    Dim rng As Range
    For Each wsh In ThisWorkbook.Worksheets
        For Each rng In wsh.UsedRange
            If InStr(1, rng.Formula, "SUM(", vbTextCompare) > 0 Then
                rng.Value = rng.Value
            End If
        Next rng
    Next
End Sub

Sub Saveasvalue()
    Dim wsh As Worksheet
    Dim rng As Range
    For Each wsh In ThisWorkbook.Worksheets
        For Each rng In wsh.UsedRange
            If InStr(1, rng.Formula, "SUM(", vbTextCompare) > 0 Then
                rng.Value = rng.Value
            End If
        Next rng
    Next
End Sub