想用vba 替换 vlookup

chengzx

“病例”里的A、B、C、D列，分别去“编码表”比对，如果找到匹配的数据，替换A、B、C、D列里的数据，如果查询不到，保留A、B、C、D列里原来的数据。

刚开始接触excel，用VLOOKUP，录制了宏来处理，因为数据量很大， 处理的时间很长，请高人给写个vba 主要是速度要快，先谢谢！

chengzx

怎么没人帮我？是不是嫌问题太初级？刚接触 还没入门

zz元

我是没有看懂你的需要

zz元

分别去编码表匹配     病例四列，编码才两列 你怎么分别匹配

chengzx

四列 里边的数据都在编码表中  四列中有错误数据

chengzx

zz元 发表于 2020-1-15 20:40
我是没有看懂你的需要

编码表里边有数十万条数据  ABCD的内容都包括了，现在是ABCD列中有填写错误和空项，自动去编码表中匹配出来替换错误或者空项，匹配不出来的错误数据，保留原数据。
哈哈 数学没学好 语言表达能力也这么差，见笑了

chengzx

照葫芦画瓢好几天了 没画成 求助吧

excel海

这是你需要的吧
Sub test()
    Dim i, n, arr, j, brr
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    With Workbooks.Open(ThisWorkbook.Path & "\编码表.xlsx")
        arr = .Sheets(1).UsedRange
        .Close False
    End With
    For i = 1 To UBound(arr)
        dic(arr(i, 1)) = arr(i, 2)
    Next
    With Sheet1
        brr = .UsedRange
        For j = 1 To 3 Step 2
            For i = 2 To .Cells(Rows.Count, 1).End(3).Row
                If dic.exists(brr(i, j)) Then
                    brr(i, j) = arr(i, j)
                End If
            Next
        Next
        .Cells(22, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
    End With
End Sub

chengzx

excel海 发表于 2020-1-16 00:14
这是你需要的吧
Sub test()
    Dim i, n, arr, j, brr

我运行一下 谢谢您！

chengzx

运行时错误“9”，下标越界   

编码表 共十万行