会计数字格式舍入百分比

Question

我使用以下公式将数据输入新列并将其转换为百分比，但我无法弄清楚如何更准确地将其转换为圆形。以下代码始终将百分比舍入为最接近的整数。例如，46.07％将总是四舍五入到46.00％。我觉得这很简单，但我尝试的一切还没有成功......这里的解决方案是什么？

    Range("D2").FormulaR1C1 = "=(RC[2]/RC[1])-1"
    Range("D2").NumberFormat = "0.00%"
    Range("D2").Select
    Range("D2").AutoFill Destination:=Range("D2:D" & lastrow)