精准“四舍五入”保留2位数

可可西里.

请帮忙...


精准“四舍五入”保留2位数

q3698995

round就行了。

可可西里.

q3698995 发表于 2024-8-8 11:25
round就行了。

我还有其他附件的数据，如果再建一个SHEET“结果”就会多很多其他运算，是否可以在VBA 里面直接改 四舍五入保留2位？？？

q3698995

可可西里. 发表于 2024-8-8 11:36
我还有其他附件的数据，如果再建一个SHEET“结果”就会多很多其他运算，是否可以在VBA 里面直接改 四舍五 ...

结果复制到你原来表，然后删除掉新建的表就行了

limonet

关键字：if=round

limonet

Sub limonet()
    Dim Arr As Variant, i%, j%
    Arr = Range("D3:K" & Range("A" & Rows.Count).End(xlUp) + 1)
    For i = 1 To UBound(Arr)
        For j = 1 To UBound(Arr, 2)
            If Arr(i, j) <> "" Then Arr(i, j) = Round(Arr(i, j), 2)
        Next j
    Next i
    Range("D3").Resize(i - 1, j - 1) = Arr
End Sub

q3698995

可可西里. 发表于 2024-8-8 11:36
我还有其他附件的数据，如果再建一个SHEET“结果”就会多很多其他运算，是否可以在VBA 里面直接改 四舍五 ...

用vba实现。

可可西里.

感谢各位大侠相助！！！