返回列表下一主題上一主題發帖

[發問] 如何彙整比對

yifan2599

　暱稱: Mick

贊助會員 Rank: 2

帖子: 37
主題: 10
精華: 0
積分: 55
點名: 0
作業系統: Win10(x64)
軟體版本: Office 2016 (x64)
閱讀權限: 30
性別: 男
註冊時間: 2011-1-31
最後登錄: 2021-9-15

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-9-26 22:34 | 只看該作者

[發問] 如何彙整比對

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

求解..

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

樓主熱帖

人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-10-26

2016猴年全勤獎章

2^#

發表於 2017-9-27 11:55 | 只看該作者

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

Kubi