作者：乔山办公网日期：
返回目录：excel表格制作
能否知道是哪一句代码出错，这样人家才知道如何解决，看个图片没人知道问题出在哪
把你那一行修改下
if len(cell.offset(1+i-2,0))>0 then
VB语言直观性非常强，黄色的部分就是出错行的代码了
如果是代码要这么写
if application.version < 12 then
这里写office03及版本以下zd的代码版
else
这里写office07及以上版本的代码
end if
如果是声明要这么写
#if VB7.0 then '如果不好使就把VB7.0改成VBA7.0，记不清了
这里写office07及以上版本的声明
#else
这里写office03及版本以下的声明
#end if
这样权你写出的代码就能通用了