方法：先添加一個宏，然后起名。這里實例起名為MyRound

然后編輯宏彈出VBA編程窗口，在下面模塊中輸入：(系統生成的Sub Myround之類的全部刪掉。)

Function myRound(ByVal num As Single, ByVal dec As Integer) As Single
With Application.WorksheetFunction
num = num * .Power(10, dec)
num1 = .RoundDown(num, 0)
num2 = num - num1
If num2 > 0.5 Or (num2 = 0.5 And Abs(num1 / 2 - Round(num1 / 2, 0)) > 0.00001) Then num1 = num1 + 1
num1 = num1 / .Power(10, dec)
End With
myRound = num1
End Function

保存后，然后在單元格中輸入=myRound（單元格，小數點位數）即可

總結

以上是生活随笔為你收集整理的WPS四舍六入无成双怎么弄?的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。