语句请教

天地一相

感谢回答！注释那句，原本在最核心层，提到上一层，是考虑能减少这一句在最里层的多次操作，可以提速。没想到多次测试发现反而慢了。请解释下，为什么会这样。如此安排，操作次数真的减少了呀。那为什么反而会增加耗时。测试时已经按住其它变量，影响结果的就这一句的位置。

fanyoulin

没看出具体原因，不过你那个判断单元格是否空白，可以使用有vba内部函数 isempty，不需用工作表函数；
如果数据都是连续的，中间没有空行，这个判断应该也没必要；

ykcbf1100

你写代码的习惯不好。
你慢就慢在ar这句。你在x循环下，多次操作单元格提取数据组成ar，这个过程需要时间的。其实，ar值是固定的，ar这句应该放到x循环外面才能节省时间。

ykcbf1100

另外，要提速，还可以这样，指定表的方式，这样也可以节省时间。
在x循环外面，先set sh1=sheet1:set sh2=sheet2

天地一相

ykcbf1100 发表于 2023-7-3 09:25
另外，要提速，还可以这样，指定表的方式，这样也可以节省时间。
在x循环外面，先set sh1=sheet1:set sh2= ...

谢谢，马上修改测试。AR的内容是每次计算后变化的。就在我第一个判断下面就发生变化了。

天地一相

fanyoulin 发表于 2023-7-3 09:16
没看出具体原因，不过你那个判断单元格是否空白，可以使用有vba内部函数 isempty，不需用工作表函数；
如 ...

谢谢，马上按你的建议修改。但这个测试没发现影响速度。我用If Application.WorksheetFunction.CountBlank测试过，速度一样。

天地一相

ykcbf1100 发表于 2023-7-3 09:25
另外，要提速，还可以这样，指定表的方式，这样也可以节省时间。
在x循环外面，先set sh1=sheet1:set sh2= ...

你这个说法，我测试了，丝毫没效果。