VBA的多重条件判断和运行速度优化

lyhvvv

ykcbf1100 发表于 2023-4-14 13:41
你不要说多重if,也不要提多重筛选，你就说要一个怎么的结果就好了。

就是把表"2023"根据表1的这些指标限制，筛选到表"2023筛选"里，具体的条件是以下这些：
1.如果年份（表"2023"列DF）≥2022，则把指标G、指标H与表1的C7-F17做比对，其中F8是指标H的筛选开关，为1则对指标H进行筛选，为1则不。D9:D10和F9:F17是指标筛选的开关，对应的指标是左侧单元格C列和E列的如果对应的数值为1则筛选，为0则不
2.如果年份（表"2023"列DF）＜2022，则把指标G、指标H不需要对比，直接开始其他数据的对比；
3.以下这些条件是所有数据行需要满足的
3.1根据表"2023"列C区域，判断表1的L2:M26，对应片区的匹配（M列）为1则筛选，为0则不筛选；
3.2根据表"2023"列E区域，判断表1的A8:B10，对应的匹配（B列）为1则筛选，为0则不筛选；
3.3数值大小的对比
    2023表 指标A列BH，≥表1指标A【A2】
    2023表 指标B列BG，≥表1指标B【B2】
    2023表 指标C列BO，≥表1指标C下限【C2】，≤指标C上上限【D2】
    2023表 指标D列AY，≥表1指标D下限【E2】，≤指标C上上限【F2】
    2023表 指标E列AZ列，≥表1指标E下限【G2】，≤指标E上上限【H2】
    2023表 指标F列AX列，≥表1指标F【I2】

以上条件都满足，则筛选，数据的整行或者A:DI列，复制到表"2023筛选"，从A3单元格开始（第三行）

ykcbf1100

条件挺多啊，先做个记号一，有时间再看一下。

ykcbf1100

为啥一定要筛选呢？不可以满足条件就把数据直接复制过去吗？

lyhvvv

ykcbf1100 发表于 2023-4-14 16:17
为啥一定要筛选呢？不可以满足条件就把数据直接复制过去吗？

就是满足所有条件，就全部复制过去。筛选是模拟了手动对数据的处理方式

lyhvvv

sosomc 发表于 2023-4-14 15:23
先禁止公式自动计算，我这能从101减少到82.
用with替代多次调用工作表，或者直接数组。

禁止自动计算很有效，用with替代工作表调用这里，因为涉及到两个表的数据对比，不明白怎么来实现，再请教一下下大佬，是这样吗

                                    With ws2023.Cells(i, "BG")
                                    If .Value > ws1.Range("B2").Value Then

这样也还要再调用另一个表

lyhvvv

继续求助，求助

sosomc

lyhvvv 发表于 2023-4-15 17:25
继续求助，求助

需要回写的用with替代多次调用，其它两个写进数组进行判断取数。

lyhvvv

内容有误                     

lyhvvv

4月18日

对代码进行了优化，目前运行7000条数据，7.5秒，继续请大家指导！
目前可能优化的方向：

1.合并重复代码，在函数之外定义这些变量。尝试了这样做，但是运行速度提升到了50多秒，不知道为啥

2."Find”替换为“Match”

3.仅剩的部分区域读取数据的代码，转换为数组