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自带函数呢?

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