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

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

-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

（最后三行是错误的）

谁能帮我解决这个问题？

谢谢，

最佳答案

代替ActiveCell.Offset(0, -1) & "." & ActiveCell.Offset(0, 0)使用此代替：

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