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