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