合并列时不会粘贴前导零 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

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

Leading zeros won´t paste when merging columns VBA

excel

merge

vba

leading-zero