[已解决]如图所示，如何比较多个工作薄中相同项的值并保留最大值

suge168

如图所示，需要对同一个文件夹下的多个不同的工作薄中相同项的值进行比较并保留最大值，如何实现，请老师指教。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-12-19 10:31

Sub test()
    Dim p$, f$, d1, d2, A, i%
    Application.ScreenUpdating = False
    Set d1 = CreateObject("scripting.dictionary")
    Set d2 = CreateObject("scripting.dictionary")
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xlsx")

    Do While f <> ""
        With Workbooks.Open(p & f)
            A = .Sheets(1).UsedRange
            .Close
        End With

        For i = 3 To UBound(A)
            If A(i, 2) > d1(A(i, 1)) Then
                d1(A(i, 1)) = A(i, 2)
                d2(A(i, 1)) = A(i, 3)
            End If
        Next i
        f = Dir
    Loop

    A = Range("a1").CurrentRegion
    For i = 3 To UBound(A)
        A(i, 2) = d1(A(i, 1))
        A(i, 3) = d2(A(i, 1))
    Next i
    Range("a1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

比较并保留最大值2.rar (43.58 KB, 下载次数: 7)

2016-12-19 10:31 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub test()
    Dim p$, f$, d1, d2, A, i%
    Application.ScreenUpdating = False
    Set d1 = CreateObject("scripting.dictionary")
    Set d2 = CreateObject("scripting.dictionary")
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xlsx")

    Do While f <> ""
        With Workbooks.Open(p & f)
            A = .Sheets(1).UsedRange
            .Close
        End With

        For i = 3 To UBound(A)
            If A(i, 2) > d1(A(i, 1)) Then
                d1(A(i, 1)) = A(i, 2)
                d2(A(i, 1)) = A(i, 3)
            End If
        Next i
        f = Dir
    Loop

    A = Range("a1").CurrentRegion
    For i = 3 To UBound(A)
        A(i, 2) = d1(A(i, 1))
        A(i, 3) = d2(A(i, 1))
    Next i
    Range("a1").Resize(UBound(A), UBound(A, 2)) = A
End Sub

比较并保留最大值2.rar (43.58 KB, 下载次数: 7)

2016-12-19 10:31 上传

点击文件名下载附件

suge168

爱疯 发表于 2016-12-19 10:31
Sub test()
    Dim p$, f$, d1, d2, A, i%
    Application.ScreenUpdating = False

非常感谢[em17][em17]

suge168

爱疯 发表于 2016-12-19 10:31
Sub test()
    Dim p$, f$, d1, d2, A, i%
    Application.ScreenUpdating = False

请问第一列的“产品名称”的顺序不固定该怎么处理。

爱疯

suge168 发表于 2016-12-19 22:44
请问第一列的“产品名称”的顺序不固定该怎么处理。

不用处理，仍会根据第1列的产品来查找数量和人员

suge168

爱疯 发表于 2016-12-19 22:52
不用处理，仍会根据第1列的产品来查找数量和人员

如图所示，A列中各项的顺序不一样或者项目的数量不一样时不能够正常汇总

suge168

suge168 发表于 2016-12-19 23:41
如图所示，A列中各项的顺序不一样或者项目的数量不一样时不能够正常汇总

改变顺序可以正常比较，，刚刚不知道怎么回事，现在可以了，，但是如果每个工作表中的“型号”不一样不能显示啊？

爱疯

suge168 发表于 2016-12-19 23:51
改变顺序可以正常比较，，刚刚不知道怎么回事，现在可以了，，但是如果每个工作表中的“型号”不一样不能 ...

不清楚你说的情况，最好上传附件并说明。

suge168

爱疯 发表于 2016-12-20 08:53
不清楚你说的情况，最好上传附件并说明。

已解决，非常感谢啊