VBA如何提取重复数据

lcb520

A列和C列都有重复的零件编码，A列的零件编码和C列的零件编码相同时提取D列的车牌号到B列，并在E列标注已到货

A重复的提取C列重复的第一个车牌号到B列，第二个重复的提取第二个，以此类推。。

A列只有一条记录，C列有多条记录则只提取第一条

A列有C列没有则显示为空

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = ActiveSheet.UsedRange
    For j = 2 To UBound(arr)
        If Len(arr(j, 1)) = 0 Then Exit For
        If Not d.exists(arr(j, 1)) Then
            Set d(arr(j, 1)) = CreateObject("scripting.dictionary")
        End If
        d(arr(j, 1))(j) = ""
    Next j
    For j = 2 To UBound(arr)
        If d.exists(arr(j, 3)) Then
            If d(arr(j, 3)).Count > 0 Then
                k = d(arr(j, 3)).keys()(0)
                arr(k, 2) = arr(j, 4)
                arr(j, 5) = "已到货"
                d(arr(j, 3)).Remove k
            End If
        End If
    Next j
    ActiveSheet.UsedRange = arr
End Sub

liulang0808

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

ovxyz

没有字典了。觉得这样反而比较好懂。

今铭昔

lcb520

liulang0808 发表于 2023-3-1 17:20
附件内容供参考。。。。。。

谢谢啦，看了一会才看明白，自己却写不出来

lcb520

ovxyz 发表于 2023-3-1 17:48
没有字典了。觉得这样反而比较好懂。

谢谢啦！

今日123

ovxyz 发表于 2023-3-1 17:48
没有字典了。觉得这样反而比较好懂。

一开始j就学数组，字典比较好入门。反而用 不惯 CELL,RANGE,FIND 这种的写法