如何批量删除excel中套用ROUND的公式？

如现在单元格内公式为=ROUND(A1+A2,2)，仅保留=A1+A2。

已找到方法。
Sub Macro4()
Dim aa, bb, rng As Range, cel As Range
With ActiveSheet
Set rng = Cells.SpecialCells(xlCellTypeFormulas, 23)
For Each cel In rng
aa = cel.Formula
If InStr(aa, "ROUND") Then
aa = Replace(aa, "ROUND", "")
bb = Split(aa, ",")(0)
aa = Mid(bb, 3)
cel.Formula = "=" & aa
End If
Next
End With
End Sub

参考 excelhome

查找round替换为空。左右括号无法替换掉，如果是嵌套的多个函数就会出错。保留着也不会防事。

如上图， a1=c1+d1 a2=c2+d2 b列粘贴",)" 工具-选项-勾选公式-确定 结果如下 复制ab两列到word，结果如下 查找=,替换为=round（ 结果如下 用橡皮工具擦除两列中间的竖线（相当于批量合并两列单元格）结果如下 查找特殊字符段落标记，替换为空 ，结果如下 复制者列单元格粘贴到excel的a列 工具-选项-取消公式前面的勾-确定 a列就是你要的结果。