如何通过VBA将带前导零的长数字按原格式写入Excel单元格？

太懂这种糟心的情况了——Excel总是自作主张把带前导零的数字当成数值处理，不仅丢了前面的零，超长数字还直接变成科学计数法，完全不是我们要的结果！下面给你几个亲测有效的解决办法，按需选就行：

方法1：先把单元格设为文本格式再赋值 #

这是最稳妥的常规操作，先让Excel知道这个单元格要存文本，再写入数据，就不会乱解析了：

' 先给目标单元格设置文本格式
.Cells(LR + 1, index).NumberFormat = "@"
' 再写入带前导零的数字字符串
.Cells(LR + 1, index).Value = "00049875142"

如果需要处理整列数据，直接给整列设置格式更高效：

Columns(index).NumberFormat = "@"

方法2：给字符串加英文单引号前缀 #

要是不想提前改单元格格式，直接在要写入的字符串前面加一个英文单引号就行——Excel会把它识别为文本标记，单引号不会显示在单元格里，但能完美保留前导零：

.Cells(LR + 1, index).Value = "'0008789875949898451142"

这个方法适合临时写入个别数据的场景，不用调整格式，一步到位。

补充说明：为什么之前的方法失效？ #

你用Value或Value2直接赋值时，Excel会自动判断数据类型：当它识别到内容是纯数字字符串，就会自动转成数值型存储，前导零自然被丢弃；而当数字长度超过15位时，Excel还会触发科学计数法显示，甚至会丢失末尾的精度（因为Excel的数值精度只有15位）。所以核心思路就是让Excel把内容当成文本而非数值处理。

内容的提问来源于stack exchange，提问作者Maldred