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

比如,我在A1单元格输入了 =SUM(B1:G1)现在我想通过VBA将SUM改为COUNT
2024-11-25 03:52:50
推荐回答(2个)
回答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

回答2:

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

公式必须用大写字母