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

'去数据源标查找
        '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 = Ar