#,0,,.0
这在SSRS RDL中的format()函数中起作用。我真正的完整漂亮的是[#,0,,.0M;(#,0,,.0M);'']

VBA Format（）函数将与一些数字格式斗争，将一个大值转换为具有1个小数位的数百万，我使用这个。

Sub formatMillionsWithOneDecimal()

    Dim totalThisYear As Long
    Dim totalThisYearString As String

    totalThisYear = 17634600

    totalThisYearString = Format(totalThisYear, "£#,0,,.0M,")

    Debug.Print totalThisYearString

End Sub

这将输出：

£17.6M

VBA格式函数无法处理此格式字符串。所以：

Sub dural()
    Dim SourceData As Long
    Dim CellData As String
    SourceData = 1200000
    CellData = Format(SourceData, "0.0,,")
    MsgBox CellData
End Sub

将生成错误的字符串。使用这个代替：

Sub dural2()
    Dim SourceData As Long, D As Double
    Dim CellData As String

    SourceData = 1200000
    D = SourceData / 1000000
    CellData = Format(D, "0.0")

    MsgBox CellData
End Sub

EDIT#1：

用一个单元格，用数字处理它。格式化它。转换为字符串：

Sub dural3()
    Dim SourceData As Long, D As Double
    Dim CellData As String, r As Range
    Set r = Range("A1")
    SourceData = 1200000
    D = SourceData / 1000000

    With r
        .Clear
        .Value = D
        .NumberFormat = "0.0"
        .Value = .Text         'convert to text
        CellData = .Value
    End With
    MsgBox CellData
End Sub