数据量较大，求助VBA中如何用字典使用VLOOKUP

木马不是马

大概有20多万行，求一个用字典匹配出数据，然后未匹配出的自动删除行，感谢！！诉求：工作表名“清单”A2列匹配工作表名“清单1”A列数据，未匹配出的行自动删除，用VBA字典写。
数据量大的时候用公式VLOOKUP(A2,清单1!A:A,1,0)下拉太慢了
求各位大神给个代码，感谢！

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = Sheets("清单1").UsedRange
    For j = 2 To UBound(arr)
        d(arr(j, 1) & "") = ""
    Next j
    arr = Sheets("清单").UsedRange
    r = 1
    For j = 2 To UBound(arr)
        If d.exists(arr(j, 1) & "") Then
            r = r + 1
            If r < j Then
                arr(r, 1) = arr(j, 1)
                arr(j, 1) = ""
                arr(j, 2) = ""
            End If
            arr(r, 2) = arr(j, 1)
        Else
            arr(j, 1) = ""
            arr(j, 2) = ""
        End If
    Next j
    Sheets("清单").UsedRange = arr
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。

蓝桥玄霜

重复的例子：

罗达

Sub 替代vlookup()

Dim arr, brr, r, d, k
arr = Sheets("清单1").UsedRange
brr = Sheets("清单").Range("a1:a" & Sheets("清单").Cells(Rows.Count, 1).End(xlUp).Row)
Set d = CreateObject("scripting.dictionary")

For r = 2 To UBound(arr)
    d(arr(r, 1)) = ""
Next r

r = 0
For r = 2 To UBound(brr)        '用“无”标示没有的数据，不建议直接删除。
    If Not d.exists(brr(r, 1)) Then brr(r, 1) = "无"
   
'    If d.exists(brr(r, 1)) Then        '只提取能够匹配的数据出来。
'        k = k + 1
'        brr(k, 1) = brr(r, 1)
'    End If
Next r

Application.ScreenUpdating = False
Sheets("清单").Range("b1").Resize(UBound(brr), 1) = brr
Application.ScreenUpdating = True

End Sub

木马不是马

liulang0808 发表于 2021-5-3 09:52
Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating  ...

感谢您的代码，试过了效果很好！

木马不是马

liulang0808 发表于 2021-5-3 09:53
附件内容供参考。。。。。。

谢谢您，打开的时候运行一次，挺好的

木马不是马

liulang0808 发表于 2021-5-3 09:53
附件内容供参考。。。。。。

您好，请帮忙再指导下，补充如下，谢谢~
补充：如果有多列数据还是无法删除未匹配出的整行数据，仅删除了A列B列的数据，那样的话我每行的数据都会错位的，请帮忙再指导下，谢谢

木马不是马

罗达 发表于 2021-5-3 09:59
Sub 替代vlookup()

Dim arr, brr, r, d, k

谢谢您，这段代码我试了下，最终的目的还是要删除未匹配出的整行的，不然会影响别的数据，感谢！！

木马不是马

补充：如果有多列数据还是无法删除未匹配出的整行数据，仅删除了A列B列所在的行，那样的话我每行的数据会错位，请各路大神帮忙再指导下，谢谢