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