EXCEL多条件匹配核对

lielie431

上封帖子需求可能表达的不是很清楚，重新附上档案描述，主要想要达到的目的，就是两数据表要进行多条件核对匹配，当匹配上时，要在相应采购记录总表对应“是否完成”那列标明“完成”，当错误时，“送货单”中“是否错误”那列对应数据要标明“错误”二字，详见表格，谢谢！

zpy2

        PO2304150073        SO23041623        杂项费                1        4        4       

第6行在记录总表中没有，不算错误吗？

还有
错误        PO2304150073        SO23041623        A-B唛头        PCS        896        6.5        5824       
        PO2304150073        SO23041623        杂项费                1        4        4       
这2行 有一样 的 采购单号        需求单号
如果要按行匹配匹配，一定要有唯一值，才行 ，也就是说 要有主键。
比如
https://club.excelhome.net/forum.php?mod=viewthread&tid=1620961&page=0&mobile&_dsign=87e071ab

3190496160

Sub 数据核对()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Set sh = Sheets("采购记录总表")
With sh
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    If r < 2 Then MsgBox "采购记录总表为空": End
    ar = .Range("a1:o" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 2)) <> "" And Trim(ar(i, 8)) <> "" Then
        zd = Trim(ar(i, 2)) & "|" & Trim(ar(i, 8))
        d(zd) = i
    End If
Next i
With Sheets("送货单")
    rs = .Cells(Rows.Count, 3).End(xlUp).Row
    If r < 5 Then MsgBox "送货单为空": End
    br = .Range("b4:i" & rs)
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) <> "" And Trim(br(i, 2)) <> "" Then
            zd = Trim(br(i, 1)) & "|" & Trim(br(i, 2))
            xh = d(zd)
            If xh = "" Then
                .Cells(i + 3, 1) = "错误"
            ElseIf xh <> "" Then
                zf_1 = Trim(ar(xh, 10)) & "|" & ar(xh, 11) & "|" & ar(xh, 12) & "|" & ar(xh, 13)
                zf_2 = Trim(br(i, 3)) & "|" & br(i, 5) & "|" & br(i, 6) & "|" & br(i, 7)
                If Trim(br(i, 3)) <> "杂项费" Then
                    If zf_1 <> zf_2 Then
                        .Cells(i + 3, 1) = "错误"
                    Else
                        If Trim(sh.Cells(xh, 1)) = "" Then
                            sh.Cells(xh, 1) = "完成"
                        Else
                            .Cells(i + 3, 1) = "错误"
                        End If
                    End If
                Else
                    If br(i, 7) <> ar(xh, 14) Then
                        .Cells(i + 3, 1) = "错误"
                    End If
                End If
            End If
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

送货单消数据.rar (29.99 KB, 下载次数: 8)

2023-5-4 09:14 上传

点击文件名下载附件

3190496160

一个初稿，一些细节可能还没有完全考虑全面，仅供参考，实在不行，可以加v

lielie431

3190496160 发表于 2023-5-4 09:14

感谢大神，大体问题是解决了，不过在使用的过程中发现，如果一个单有多项的情况的话，另外几项就无法进行核对而被判定错误，这个问题是否能解决呢，就比如一个PO订单，有4项产品，那就有3项产品会被判定错误，谢谢！

3190496160

lielie431 发表于 2023-5-19 09:10
感谢大神，大体问题是解决了，不过在使用的过程中发现，如果一个单有多项的情况的话，另外几项就无法进行 ...

说实话，时隔十多天了，当初的一切都忘了，不知道你说的是什么意思