VBA:踩坑，使用find严重拖慢速度10000倍

码龄9年

关注

原创最新推荐文章于 2026-07-31 14:35:57 发布 2.7k 阅读

Excel条件函数实战：从IF到LAMBDA的业务规则建模指南条件函数是电子表格中实现业务逻辑判断的核心能力，其本质是将现实世界中的‘且/或/非’规则转化为可计算、可验证的结构化表达。理解IF、SUMIFS、FILTER、XLOOKUP与LAMBDA等函数的底层逻辑——如三段式验证模型（输入源→判断器→输出域）、布尔数组运算机制及引用粒度差异——是构建稳定数据处理流程的关键。它不仅支撑日常的多条件筛选、动态评级、跨表查询等高频场景，更构成轻量级业务规则引擎的基础。尤其在需要应对模糊匹配、时间重叠检测、嵌套逻辑解耦及错误容错时，掌握条件函数的选型原则与协同规则，能显著提阅读详情

'去数据源标查找
        'Set rst_info = st_src.Range("1:" & st_src.Rows.Count).Find(sh_kw)
        'If rst_info Is Nothing Then
             'Debug.Print src_sheet_name, "中不存在,跳过这个词:", sh_kw
             'Exit For
        'Else
            'Set pv_val = st_src.Cells(rst_info.Row, src_pv_col)
            'pv_val_test = "---"
            'Debug.Print sh_kw, "正常查询写入中"
            'Debug.Print rst_info.Row, rst_info.Column, pv_val.Value, rst_info.Value
            'set value
            'st_dst.Cells(i, dst_pv_col) = pv_val.Value
            'arr_data_uv(i) = pv_val.Value
        'End If

排查了一整天终于知道什么影响性能了！fk

 Set rst_info = st_src.Range("1:" & st_src.Rows.Count).Find(sh_kw)

换数组获取下标的方式：

  
       sh_kw = kw_i.Value
       For j = 1 To endrow_src - 1
        If sh_kw = Arr_src(j) Then
            Debug.Print "founded:", Arr_src(j), sh_kw
            Set pv_val = st_src.Cells(j, src_pv_col)
            'pv_val_test = "---"
            'Debug.Print sh_kw, "正常查询写入中"
            Debug.Print j, src_pv_col, pv_val.Value
            'set value
            st_dst.Cells(i, dst_pv_col) = pv_val.Value
            'arr_data_uv(i) = pv_val.Value
            Exit For
        End If
        
       Next j