能否优化代码？

huizhuzi · 发表于 2018-7-25 20:45

本帖最后由 huizhuzi 于 2018-7-25 21:11 编辑

07.25.rar (23.44 KB, 下载次数: 9)

1、能否优化代码？运行时感觉有点卡。
2、.Borders.LineStyle = xlContinuous '边框，
没有边框的时候没事，但是一有就会出错
QQ图片20180725204428.png

liulang0808 · 发表于 2018-7-25 21:00

报错的时候，选择调试，哪一行代码是黄色的？
单纯看设置边框这部分，看不出来有什么问题的

huizhuzi · 发表于 2018-7-25 21:09

liulang0808 发表于 2018-7-25 21:00
报错的时候，选择调试，哪一行代码是黄色的？
单纯看设置边框这部分，看不出来有什么问题的

就是.Borders.LineStyle = xlContinuous 有问题
如果表格没边框的话，运行没问题
但是有边框就会出错
之前也不会这样的，莪也不太懂

liulang0808 · 发表于 2018-7-25 21:11

huizhuzi 发表于 2018-7-25 21:09
就是.Borders.LineStyle = xlContinuous 有问题
如果表格没边框的话，运行没问题
但是有边框就会出错
...

运行了下楼主的附件，未发现报错情况的

huizhuzi · 发表于 2018-7-25 22:46

liulang0808 发表于 2018-7-25 21:11
运行了下楼主的附件，未发现报错情况的

难道是莪电脑问题？
还有能优化吗？

liulang0808 · 发表于 2018-7-26 06:53

huizhuzi 发表于 2018-7-25 22:46
难道是莪电脑问题？
还有能优化吗？

建议楼主结合附件，描述下具体需求吧
看看是否能够优化了

huizhuzi · 发表于 2018-7-26 12:43

liulang0808 发表于 2018-7-26 06:53
建议楼主结合附件，描述下具体需求吧
看看是否能够优化了

就是将表2合格的相关内容提取到表1

liulang0808 · 发表于 2018-7-26 13:40

附件中的代码做了微调，楼主看看是否可行吧
不过楼主的代码比较混乱啊

huizhuzi · 发表于 2018-7-26 18:35

liulang0808 发表于 2018-7-26 13:40
附件中的代码做了微调，楼主看看是否可行吧
不过楼主的代码比较混乱啊

还是差不多，可能莪电脑问题了，老爷机。
没办法，想到需要什么需求就想代码，都是按一步步来操作，所以比较多代码

		自动登录	找回密码
密码			免费注册

[求助] 能否优化代码？