VBA中简单修改原有公式的宏

     最近搞CMMI，由于度量模板中很多都要用到公式，而且模板已经被一些试点项目使用了，发现所有的公式都没有限定小数点后面的位数，所以为了方便需要写一个宏来修改原有公式，来增加限定原有公式结果的小数点后的位数，目前暂定为保留小数点后三位，该宏比较简单，大概就是下面这个样子：

Sub ChangeFormula()
    Dim col As Integer
    Dim row As Integer
    For row = 4 To 4
        For col = 10 To 65
            worksheet("度量数据").Cells(row, col).FormulaR1C1 = "=Round(" + Right(Cells(row, col).FormulaR1C1, Len(Cells(row, col).FormulaR1C1) - 1) + ", 3)"
        Next
    Next
End Sub

比较简单吧…,当然你可以将其中的数字换成常量修改起来会方便一点