作者：乔山办公网日期：
返回目录：excel表格制作
可能你是安装的测试版，下载一个正式版的安装试试看。
比如你的数据在3000行之前，3001行后都是空白的，那么选中3001行，按住ctrl+shift+↓三个键，会自动全选3001行至最后。然后点击右键，选择删除，保存。文件就会相应的缩小了。
你定义的百i是整形变量。。整形变度量的取值范知围是-32768到32767.。。
但是你的For i = 5 To Sheet1.Rows.Count 这句道Sheet1.Rows.Count哪怕是EXECL2003都有65536.。。明显超专出了32767，不溢出才有鬼属了。。
可能是出现了被0除的现象(即Range("Z" & i)=0)
再者,前面复的a也缺少变量申明，当然，如制果申明了公共变量就另当别论了。
建议将zd第一行On Error Resume Next删除，再进行调试，不难发现问题所在。