将单元格值设置为左侧vba为0

我试图给一个有vba的单元格引入一个像“0001”这样的值，但我设置的是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

---

插入为文本使用撇号

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

或者，您也可以在输入数字后更改格式：

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

---

插入为文本使用撇号

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

或者，您也可以在输入数字后更改格式：

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