excel - 合并列 VBA 时不会粘贴前导零

Question

我需要使用两列信息来构建数字，如下所示:

-4 24296 -4.24296
-4 20320 -4.20320
-4 16356 -4.16356
-4 12410 -4.12410
-4 08500 -4.08500
-4 04619 -4.04619
-4 00739 -4.00739

这是我用来合并值的例程:

Range("R3").Select

Do While ActiveCell <> ""
    ActiveCell.Offset(0, 1).FormulaR1C1 = _
        ActiveCell.Offset(0, -1) & "." & ActiveCell.Offset(0, 0)
    ActiveCell.Offset(1, 0).Select
Loop

问题是这个例程忽略了前导零，即使我让程序显示它们:

Worksheets("Data").Columns("R").NumberFormat = "00000"

这是我的程序给我的输出:

-4 24296 -4.24296
-4 20320 -4.20320
-4 16356 -4.16356
-4 12410 -4.12410
-4 08500 -4.85000
-4 04619 -4.46190
-4 00739 -4.73900

(最后三行是错误的)

谁能帮我解决这个问题吗？

谢谢

Answer 1

而不是ActiveCell.Offset(0, -1) & "."& ActiveCell.Offset(0, 0) 使用这个代替:

ActiveCell.Offset(0, -1) - ActiveCell.Offset(0, 0)/100000