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

【问题标题】：Excel VBA - replace cells as value for particular formulasExcel VBA - 将单元格替换为特定公式的值
【发布时间】：2021-05-26 19:14:52
【问题描述】：

我有一个包含很多公式的大 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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：