ExcelVBA-以0开头的字符串-ExcelVBA-Stringsstartingwith0

9  

If you change the .NumberFormat property to "@", it will write 02345 in the cell.

如果将.NumberFormat属性更改为“@”，它将在单元格中写入02345。

Dim testtext As String
testtext = Worksheets("Sheet2").Range("B6").Value
Worksheets("Sheet2").Range("B7").NumberFormat = "@"

Worksheets("Sheet2").Range("B7").Value = testtext

This works because the standard cell format reads a number with leading 0s as a numeric value, and therefore the leading 0s are removed. By forcing Excel to use the text format on that particualar cell, it will not treat it as a numeric value, but just as plain text.

这是因为标准单元格格式读取带有前导0的数字作为数值，因此删除了前导0。通过强制Excel在该特定单元格上使用文本格式，它不会将其视为数值，而是将其视为纯文本。

4  

I don't know what is the default property of Range, but anyway

我不知道Range的默认属性是什么，但无论如何

With Worksheets("Sheet2")
  .Range("B7") = .Range("B6")
End With

seems to work perfectly.
If you really need the intermediate testext variable, I would rather define it as Variant.

似乎完美无缺。如果你真的需要中间的testext变量，我宁愿把它定义为Variant。

2  

Try simple copying of one cell's content into another with copy method.

尝试使用复制方法将一个单元格的内容简单复制到另一个单元格中。

   Worksheets("Sheet2").Range("B6").copy Worksheets("Sheet2").Range("B7")

1  

You could use the FormulaR1C1 property of a cell to insert the single quote which causes Excel to interpret it as text. This mimics what actually happens when you enter '02345 in the B6 originally, as you can verify by doing so with the macro recorder turned on:

您可以使用单元格的FormulaR1C1属性插入单引号，这会导致Excel将其解释为文本。这模仿了最初在B6中输入'02345时实际发生的情况，因为您可以通过打开宏录制器来验证：

Worksheets("Sheet2").Range("B7").FormulaR1C1 = "'" & testtext