vba - 在左侧 vba 设置一个单元格值为 0

Question

我试图将像“0001”这样的值引入带有 vba 的单元格，但我设置的只是 1 而没有 000

这是我的代码

    Dim iRow As Long
    Dim ws As Worksheet: Set ws = Worksheets(BD_PRODXSIST)

    With ws    
        .Range("A" & iRow).Value = "0001"            
   End With

    Set ws = Nothing

Answer 1

作为文本插入使用撇号。

.Range("A" & iRow).Value = "'0001"

或者你也可以在输入数字后改变格式：

.Range("A" & iRow).Value = "1"
.Range("B" & iRow).NumberFormat = "0000"