兩表比對後將結果輸出 - Excel程式區

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

12^# 跳轉到 »

發表於 2022-5-31 09:48 | 只看該作者

回復 samwang
sam大
抱歉在請問，若想要增加科目去重及合併金額..
這部分要如何修改，詳如圖片，
再次 ...
shuo1125 發表於 2022-5-31 09:27

不好意思，看不太懂您的意思，請舉例補充說明一下，謝謝

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

11^#

發表於 2022-5-31 09:27 | 只看該作者

回復 9# samwang
sam大
抱歉在請問，若想要增加科目去重及合併金額..
這部分要如何修改，詳如圖片，
再次麻煩了..謝謝您！

擷取.PNG (15.92 KB)

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

10^#

發表於 2022-5-25 11:46 | 只看該作者

回復 9# samwang
sam大
感謝你如此詳細的說明，
我後來嘗試調整也跟你調的差不多...
你提供這方式對我很有幫助，
萬分感激。

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

9^#

發表於 2022-5-25 11:33 | 只看該作者

回復 samwang

sam大
抱歉在更正一下，
可能是我說明不夠清楚，是將試算表科目比對參數後，
輸出參數 ...
shuo1125 發表於 2022-5-25 08:39

更新如紅字部分，請再測試看看，謝謝

Sub test()
Dim Arr, xD, Brr(), T$, T1$, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Sheet1.[A1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 3): T1 = Arr(i, 5)
If UCase(T1) = "S" Then
      xD(T) = Array(Arr(i, 4), Arr(i, 7), Arr(i, 2), Arr(i, 10))
End If
Next
Arr = Sheet2.[A1].CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 7)
For i = 2 To UBound(Arr)
T = Arr(i, 1)
If xD.Exists(T) Then
      n = n + 1: Brr(n, 3) = xD(T)(1)
      Brr(n, 1) = xD(T)(2): Brr(n, 2) = xD(T)(3)
      If UCase(xD(T)(0)) = "DR" Then
      ....
      ....
      ....

1.JPG (186.15 KB)