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

答案:2 悬赏:70

解决时间 2021-04-27 16:06

提问者网友：深爱及嗨
2021-04-27 04:34

如现在单元格内公式为=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

最佳答案

二级知识专家网友：废途浑身病态
2021-04-27 05:27

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

全部回答

1楼网友：最后战士
2021-04-27 07:03

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！