麻烦帮我检查下这个程序 在excel VB运行宏时 显示错误6 溢出呢？？

声明变量类型不正确！链坦

Dim y As Long, W As Long

特别是 Range.Row 的属性是 Long 型的。从 Excel2003 版本开始， 每段唤态个工作表最大行号为 65536；Excel2007版本握源以后每个工作表最大行号达到了 1048576。都已经超过了 Integer 型数的范围了 （-32768 ～ 32767）！

溢出（错误 6）

当赋值超出目标的限制时，就会发生溢出。此错误有以下的原因和解决方法：

赋洞歼值、计算或数据类型的结果的转换太大，纳让冲以致于不能在变量类型所允许的范围内表示出来。

赋值给足够表示值的范围的类型的变量上。

给属性的赋值超过属性能接受的最大值。

确保赋值适合属性的范围。

试图在计算中使用一个数字，并且该数字被强制为一个整数滑让，但是结果超过了整数的范围，例如：

Dim x As Long

x = 2000 * 365 ' 错误: 溢出

要解决这个问题，请按如下方式键入该数字：

Dim x As Long

x = CLng(2000) * 365

黄色界面条出现的时候，鼠标放在各变量下检查各自的值，然后链姿哪用计算器或者口算一下计算过程，溢出错误的原因是结算的结果超过范围，建议检查代码里面作为除数的Rz、ls等变量值，如册行果他们等于（或者接近）0，计算机就没办法计算，只有报错。棚码

---