Question

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

excel vba 数组中，某一列数为字符型，均为以0开头的数字型字符，用变量类型函数检查也均是字符型，但将数组中的值赋给单元格时，单元里的数字前面的0就没有了，用变量类型函数检查单元格变成了数值型数据。用在数组前加" "的办法也不管用，用cstr/str函数也没有搞出来，我要在单元格里保留第1位的0，将其作为字符型数据，怎么处理？请给出VBA代码，谢谢

Answer 1

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

Sub a()
    Dim str As String
    str = "012345676"
    [A1] = "'" & str
End Sub

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

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

Answer 2

直接将单元格事先设置为文本格式