代码跟云梯一样看的我脖子酸，按下面方法试一下：在代码开始的最前面加上Option Explicit，看看是否有未定义的变量如果上面未提示有错误再试一下：把所有的变量定义为变体变量（就是 as Variant，其实直接去除即可），感觉问题出在你的短整型变量上
Integer 改成long 或者更大点 double
