excel vba 取一位小数

在Excel VBA中，如果你想要从一个包含小数值的单元格取到一位小数，你可以使用`Round`函数。例如，如果你想将A1单元格的小数值四舍五入到十分位，可以这样做：

Dim number As Double
number = Round(A1, 1) ' 将A1单元格的内容四舍五入到一位小数并赋值给number变量

这里，`Round(number, n)`中的`n`就是小数位数，如果是0，则表示整数部分；如果是正数，表示向右靠拢，即向上取整；如果是负数，表示向左靠拢，即向下取整。

如果你想直接从单元格显示一位小数，可以在公式中使用`Format`函数：

ActiveCell.Value = Format(A1, "0.0")

这会直接设置当前活动单元格（假设为A1）的值为保留一位小数的形式。