1. 在代码输入区域中输入以下红色部分代码(实际只要改变第四行代码就可以了,99代表d(0.99),100代表d(1.00)以后如果需要别的参数只要改变代码的这部分即可) Option Explicit Private Function Calc() As Variant 'Enteryour calculation here Calc= Round(Stats.Percentile(99),3)(如果是d(1.00),只需把99改成100就可以了,其他的不做改动) End Function 1. 改完之后另存为一下