Excel VBA - 以0开头的字符串

Question

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

将一个单元格的内容简单复制到另一个单元格中.但是当B6的内容出现问题时我遇到了问题'02345- 在运行宏B7包含后2345,我不想失去前导零.我尝试在代码的第二行替换.Value,.Text这没有帮助.

Answer 1

如果将.NumberFormat属性更改为"@",它将在单元格中写入02345.

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

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

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