我怎样才能得到这个值到小数点后 2 位？

Question

dub = Application.Sum(wb.Sheets("Sheet1").range("A:A"))

我尝试了 .numberformat "0.00" 并将变量类型设置为双精度，但没有成功。

提前致谢。

Answer 1

试试：

dub = Round(Application.Sum(wb.Sheets("Sheet1").range("A:A")),2)

Round(number,precision) 函数根据指定的精度对数字进行舍入。

希望我对你有所帮助！