关于excel所有带等号的单元格加round函数

eerraszx

请教excel所有带等号的单元格，计算结果为数字（需要排除链接的文字，即A1单元格为文字，B1单元格等于A1这种情况），怎么自动加round函数，一个一个的加太麻烦，具体见附件想要的效果，谢谢！

eerraszx

需要整个工作表自动查找符合要求的单元格，在原有的带公式单元格加round，不用手动选择区域

于箱长

If Val(……） then

eerraszx

于箱长 发表于 2024-7-9 09:14
If Val(……） then

需要VBA实现，您这样没法运行

ykcbf1100

附件做得太马虎了。写了代码估计还得追问。

于箱长

eerraszx 发表于 2024-7-9 09:20
需要VBA实现，您这样没法运行

你是在质疑我没看懂题，是吗？

limonet

关键字：cells.find

limonet

Sub Limoent()
    Dim RngCell As Range, FirstAddress$
    Set RngCell = Cells.Find(What:="=", LookIn:=xlFormulas)
    If Not RngCell Is Nothing Then
        FirstAddress = RngCell.Address
        Do
            If IsNumeric(RngCell) Then RngCell = Replace(RngCell.Formula, "=", "=ROUND(") & ",2)"
            Set RngCell = Cells.FindNext(RngCell)
        Loop While RngCell.Address <> FirstAddress
    End If
End Sub

eerraszx

limonet 发表于 2024-7-9 09:46
Sub Limoent()
    Dim RngCell As Range, FirstAddress$
    Set RngCell = Cells.Find(What:="=", Look ...

谢谢大神，可以用，不过点了3次，生成了3个round嵌套函数，总体不影响。

eerraszx

于箱长 发表于 2024-7-9 09:28
你是在质疑我没看懂题，是吗？

不敢，是我没看懂