将数据转换为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 ...