松茸博客 - 【VBA】常用代码--四舍五入 的评论
Sub Sswr()Dim i As Integer, j As IntegerFor i = 2 To 16For j = 2 To 4Cells(i, j) = Application.Wo...