xcel vba 数组中第1位字符为0，赋给单元格时如何将0保留

在字符串的前面加bai'，如下代码

Sub a()

    Dim str As String

    str = "012345676"

    [A1] = "'" & str

End Sub

或者将单元格格bai式设置为文本

Sub b()

    Dim str As String

    str = "0123456789"

    [A2].NumberFormatLocal = "@"    '将单元格格式设置为 文本

    [A2] = str

End Sub

 将单元格格式设置为00000000

Sub c()

    Dim str As String

    str = "00123456789"

    '[A3].NumberFormatLocal = "!00"   '如果前面多个0，只想要一个0用这行。

    [A3].NumberFormatLocal = Application.WorksheetFunction.Rept("0", Len(str))  '如果前面多个0，保留多个0用这行。

    [A3] = str

End Sub