抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

lbl016

原帖由 kevinchengcw 于 2010-4-5 08:48 发表
Sheets("汇总").Range("a3:iv65536").Clear
把这句改成
Sheets("汇总").rows("3:65536").delete
试一下

这句改后没有问题

kevinchengcw

原帖由 lbl016 于 2010-4-5 08:48 发表

谢谢，我在线等你哈！并烦你附上解释哈

附件上来了，你自己理解一下，其实挺好懂的

kevinchengcw

原帖由 lbl016 于 2010-4-5 08:56 发表

这句改后没有问题

你原来复制的单元格区域中有合并单元格，而你在清除的时候用的是清空内容而不是删除行，所以内容没了，但合并单元格还在，再次粘贴入数据时就会出错了，所以用删除的方式就不会有这样的情况了

lbl016

原帖由 kevinchengcw 于 2010-4-5 09:07 发表


你原来复制的单元格区域中有合并单元格，而你在清除的时候用的是清空内容而不是删除行，所以内容没了，但合并单元格还在，再次粘贴入数据时就会出错了，所以用删除的方式就不会有这样的情况了

我把分表中数据区合并单元格去掉后两个代码就都没有问题了

lbl016

原帖由 kevinchengcw 于 2010-4-5 09:05 发表


附件上来了，你自己理解一下，其实挺好懂的

能否做到不通过对“应关系表”建立对应要求来过渡，而是直接把要达到的目的写在代码中就更好了，烦请你好人做到底，一便把插入的代码补全好吗？

[ 本帖最后由 lbl016 于 2010-4-5 09:28 编辑 ]

kevinchengcw

已经改好了，不过想学得快点你应该自己尝试去改的

lbl016

谢谢，非常感谢你的帮助，如果能把一便把插入的代码补全就更好了？

kevinchengcw

原帖由 lbl016 于 2010-4-5 09:42 发表
谢谢，非常感谢你的帮助，如果能把一便把插入的代码补全就更好了？

那是你的作业了，你要完成的

lbl016

好吗，我试下，但是我是非常菜了哟

kevinchengcw

《为学》
天下事有难易乎？为之，则难者亦易矣；不为，则易者亦难矣。
人之为学有难易乎？学之，则难者亦易矣；不学，则易者亦难矣。
蜀之鄙有二僧，其一贫，其一富。贫者语于富者曰：“吾欲之南海，何如？”
富者曰：“子何恃而往？”
曰：“吾一瓶一钵足矣。”
富者曰：“吾数年来欲买舟而下，犹未能也。子何恃而往！”
越明年，贫者自南海还，以告富者。富者有惭色。
西蜀之去南海，不知几千里也，僧富者不能至而贫者至焉。人之立志，顾不如蜀鄙之僧哉？

专门上网帮你找来这个，希望能让你醒悟

想成事就忘了自己是菜鸟，即使你把最简单的语句堆积起来达到了你的目的也是好的，总好过你学了几箩筐还没写出一个可以用的吧，学以致用，不能拿出来用，学来干什么，消磨时间吗？！