如何根据店铺名称+科目+数量+金额，四个标题字段，进行两表对比

yu88

根据店铺名称+科目+数量+金额，四个标题字段，进行两表对比，但凡有一个标题字段内容不相同的，就分别在两表的I列标注*号（颜色只是对问题的说明，与结果无关，可忽略）


两表对比.rar (9.21 KB, 下载次数: 10)

2014-5-13 11:42 上传

点击文件名下载附件

zax010

笨办法：
Sub zz()
    Dim d, d1
    Set d = CreateObject("Scripting.Dictionary")
    Set d1 = CreateObject("Scripting.Dictionary")
    With Sheet1
        .Range("I:I") = ""
        lr = .Range("A1").End(xlDown).Row
        For i = 2 To lr
            d(.Cells(i, 1) & .Cells(i, 5) & .Cells(i, 6) & .Cells(i, 7)) = "*"
        Next
    End With
    With Sheet2
        .Range("I:I") = ""
        er = .Range("A1").End(xlDown).Row
        For i = 2 To er
            d1(.Cells(i, 1) & .Cells(i, 5) & .Cells(i, 6) & .Cells(i, 7)) = "*"
        Next
        For i = 2 To er
            s = .Cells(i, 1) & .Cells(i, 5) & .Cells(i, 6) & .Cells(i, 7)
            If Not d.exists(s) Then .Cells(i, 9) = d1(s)
        Next
    End With
    With Sheet1
        For i = 2 To lr
            s = .Cells(i, 1) & .Cells(i, 5) & .Cells(i, 6) & .Cells(i, 7)
            If Not d1.exists(s) Then .Cells(i, 9) = d(s)
        Next
    End With
End Sub

zax010

附件：









两表对比.rar (17.21 KB, 下载次数: 17)

2014-5-13 12:35 上传

点击文件名下载附件

yu88

zax010 发表于 2014-5-13 12:33
笨办法：
Sub zz()
    Dim d, d1

呵呵，谢谢zax010老师，这办法不笨，代码相当工整，一目了然，学习了

蔡明江

很好用！
老师，如果按照楼主的附件弄成楼主的那种颜色提示的，就更加直观了，如有时间，请赐教，谢谢！