【VBA】常用代码--四舍五入

Sub Sswr()

Dim i As Integer, j As Integer

For i = 2 To 16
For j = 2 To 4
Cells(i, j) = Application.WorksheetFunction.Round(Cells(i, j), 2)
Next j
Next i

MsgBox "OK!!"

End Sub

这里为什么不用自带的round()函数，而是调用excel自带函数呢？

原因在于两个函数功能有细微的差别，具体差异自百度吧。