vba提取

198801273815

b数据中的单号，对应a数据中的单号，如果不存在，如何提取出来，把结果提取到c区域，最后再回到b数据，把提取出来的数据删除，只留下存在的单号

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    Application.ScreenUpdating = False
    For j = 3 To UBound(arr)
        d(arr(j, 1)) = ""
    Next j
    Set Rng = Nothing
    r = 1
    arr = [i1].CurrentRegion
    For j = 3 To UBound(arr)
        If Not d.exists(arr(j, 1)) Then
            r = r + 1
            For i = 1 To UBound(arr, 2)
                arr(r, i) = arr(j, i)
            Next i
            If Rng Is Nothing Then
                Set Rng = Cells(j, "i").Resize(1, 7)
            Else
                Set Rng = Union(Rng, Cells(j, "i").Resize(1, 7))
            End If
        End If
    Next j
    [ac1].Resize(r, UBound(arr, 2)) = arr
    If Not Rng Is Nothing Then
        Rng.Delete shift:=xlUp
    End If
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容共参考

198801273815

liulang0808 发表于 2020-8-7 08:01
附件内容共参考

感谢大神，程序相当完美