使用VBA将Round函数插入当前单元格

Question

我试图让Round函数更容易插入到已经包含公式的多个单元格中.

例如,如果单元格A1具有公式=b1+b2,则在使用此宏之后,我希望读取单元格内容 =Round(b1+b2,).每个单元格中的公式都不相同,因此该b1+b2部分必须是任何东西.

我所能得到的就是:

Sub Round()

    Activecell.FormulaR1C1 = "=ROUND(b1+b2,)"     
End Sub

所以我真的在寻找一些方法来获取所选单元格中的公式,然后使用VBA编辑这些内容.我无法在任何地方找到答案.

Answer 1

这个怎么样？

Sub applyRound(R As Range)
    If Len(R.Formula) > 0 Then
        If Left(R.Formula, 1) = "=" Then
            R.Formula = "=round(" & Right(R.Formula, Len(R.Formula) - 1) & ",1)"
        End If
    End If
End Sub