将数据转换为2位小数

Question

有人知道如何转换或修改此代码以将其答案转换为两位小数？

Range("H2:H" & lastCell1).Formula = "=E2/18.33/8"

谢谢！

Answer 1

试试这个：

Dim MyRange As Range
Set MyRange = Range("H2:H" & lastCell1)
MyRange.Formula = "=E2/18.33/8"
MyRange.NumberFormat = "#0.00"

Answer 2

或者这......

Range("H2:H" & lastCell1).Formula = "=ROUND(E2/18.33/8,2)"

Answer 3

你能这样吗

Sheet("yourSheetName").range("yourRange").NumberFormat = "0.00"

但这仅适用于视觉。如果你真的将数字改为两位小数，你需要用这样的方法将它舍入。

Sheets("sheet3").Cells(6, 3).Value = Round(Sheets("sheet3").Cells(6, 3).Value, 2)

当第二个参数是小数位数时使用Round

编辑：也像这里提到的那样，您可以在公式中使用相同的ROUND ...