我需要将任何数字转换为1个小数（例如243.3）。我目前使用：
Dim maxi As Double
maxi = data.Cells(11, 7)
maxi = FormatNumber(maxi, 1)
如果我有243.4534634，这没关系，但是当我有整数（例如243）时，这是一个问题。在后面的版本中，它以整数形式（而不是243.00）给我“ maxi”
这将为您提供一个字符串格式的值，该字符串的格式保留一位小数：
Sub OnePlace()
Set Data = ActiveSheet
Dim maxi As Double
Dim maxiS As String
maxi = Data.Cells(11, 7)
maxiS = FormatNumber(maxi, 1)
MsgBox maxiS
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句