VBA脚本无法正确读取数字格式的文本格式

Question

非常感谢您的帮助。我没有偶然发现与此相关的帖子，所以也许我问错了问题。将Excel与自己的VBA代码一起使用时，我遇到了一个特定的问题。我正在编写一个预算脚本，该脚本的商品代码为“ 010”。

我正在使用脚本来处理每个代码中的订单项（此处无需赘述）。现在，我的问题是，我使用='010在源工作表中将代码以文本形式输入。

但是，当我使用脚本将数据拖入目标表时，它始终显示10。

我的问题是-如何预防这种情况？请注意，预算代码是由我们的客户设置的，因此我无法更改此代码。

非常感谢和亲切的问候

Answer 1

如果您正在Excel-VBA中寻找解决方案，那么就在这里。

Sub test()
    Dim Rng As Range
    Set Rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Rng.NumberFormat = "000"
End Sub