返回列表 上一主題 發帖

[發問] 如何彙整比對

[發問] 如何彙整比對

想請問一下,附件檔案有3個sheet
想將 DATA_* 的sheet 數量依品項加總 和 D_ALL 品項加總,兩份數據進行比對。
列出異常的品項與數量..

求解..

活頁簿1.xlsx.zip (20.09 KB)

人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

try this:
Sub zz()
Dim ar, d As Object, x$
Set d = CreateObject("scripting.dictionary")
For Each s In Sheets
    If InStr(1, s.Name, "Data_", 1) Then
        ar = s.[b1048576].End(3).CurrentRegion.Value
        For i = 2 To UBound(ar)
            d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 2)
        Next
    End If
Next
ar = Sheets("D_ALL").UsedRange.Value
    For i = 2 To UBound(ar)
        t = d(ar(i, 1)) - ar(i, 2)
        If t Then
            d(ar(i, 1)) = t
        Else
            d.Remove (ar(i, 1))
        End If
    Next
    If d.Count Then
        k = d.keys: t = d.items
        For i = 0 To UBound(t)
            If t(i) > 0 Then
                k(i) = k(i) & " +" & t(i)
            Else
                k(i) = k(i) & " " & t(i)
            End If
        Next
    End If
    MsgBox Join(k, Chr(10))
End Sub

TOP

回復 1# yifan2599
請參考。
彙整比對.rar (19.08 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

謝啦! 我在測試看看~
回復 2# ikboy
人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

感謝! 我在測試看看~

回復 3# Kubi
人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題