Question

在EXCEL中，如何用VBA修改单元格内的表达式，也就是替换部分表达式字符

比如，我在A1单元格输入了 =SUM(B1:G1)
现在我想通过VBA将SUM改为COUNT

Answer 1

可使用单元格的formula进行更改：

Sub Formula_()
Dim i As Single
Dim a As Range
Set a = Cells(1, 1)
i = Application.WorksheetFunction.Find("(", a.Formula)

a.Formula = "=" & "count" & Mid(a.Formula, i, Len(a.Formula) - i + 1)
End Sub

Answer 2

Range("a1").Formula = Application.WorksheetFunction.Substitute(Range("a1").Formula, "SUM", "COUNT")

公式必须用大写字母