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

Question

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

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

Sub Saveasvalue()
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

Answer 1

您必须添加如下所示的检查条件来测试单元格是否包含 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