想用宏在excel单元格中插入round函数

Dim s As Range

For Each s In Selection

s.Formula = "=round(" &Mid(s.Formula, 2) &",2)"

Next

Dim ran As Range

For Each ran In ActiveSheet.UsedRange

ran = Round(ran / 1000, 0)

Next

End Sub