Vba 将数据转换为小数点后2位

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

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

谢谢

试试这个：

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

试试这个：

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

或者这个

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

或者这个

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

你可以告诉我这个

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

但这只适用于视觉效果。若你们真的想把数字改为小数点后两位，你们需要用这样的方式对它进行四舍五入

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

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

Round

编辑：正如有人在这里提到的，你可以在公式中使用相同的

ROUND

。

你可以这样做

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

但这只适用于视觉效果。若你们真的想把数字改为小数点后两位，你们需要用这样的方式对它进行四舍五入

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

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

Round

---

编辑：正如有人在这里提到的，你可以在公式中使用相同的

ROUND

。

是

=E2/18.33/8

一个公式，你首先将

E2

除以

18.33

，然后再除以

8

？@Mrig是的，它是如何工作的。

E2

中的值是什么？它只是一个数据，假设149.25。

=E2/18.33/8

是一个公式，你先将

E2

除以

18.33

，然后再除以

8

？@Mrig是的，它是如何工作的。

E2

中的值是什么？它只是一个数据，比方说149.25。