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

我试图引入一个像“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" 

或者您也可以在input号码后更改格式：

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