将数据转换成2位小数

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

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

谢谢！

Answer 1

或这个 …

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

Answer 2

尝试这个：

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

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 …