標題: 求多欄作業員每日產出數量 [打印本頁]

---

作者: 074063    時間: 2017-12-1 21:54     標題: 求多欄作業員每日產出數量

求每日各作業員產出數量，如附件

[attach]28054[/attach]

[attach]28055[/attach]

---

作者: joblyc017    時間: 2017-12-2 10:34

本帖最後由 joblyc017 於 2017-12-2 10:36 編輯

回復 1# 074063

公式詳解，請參考：https://goo.gl/j92uAS
[attach]28058[/attach]

---

作者: hcm19522    時間: 2017-12-2 13:51

http://blog.xuite.net/hcm19522/twblog/549387340

---

作者: Andy2483    時間: 2023-6-8 15:09

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教

執行前:
[attach]36555[/attach]

執行結果:
[attach]36556[/attach]


Option Explicit
Sub TEST()
Dim Brr, Z, i&, j%, C%, T$
'↑宣告變數
Set Z = CreateObject("Scripting.Dictionary")
'↑令Z變數是 字典
Brr = Range([J2], [A65536].End(3))
'↑令Brr變數是 二維陣列,以A~J欄儲存格值帶入陣列中
For i = 3 To UBound(Brr)
   For j = 3 To 9 Step 3
      For C = j - 1 To j + 1
         T = Brr(i, 1) & Brr(1, j): Z(T) = Z(T) + Brr(i, C)
      Next
   Next
Next
'↑設順迴圈將組合字串當key,item是 時數累加值
Brr = Range([P2], [L65536].End(3))
'↑令Brr陣列值換盛裝目標儲存格值
For i = 2 To UBound(Brr)
   For j = 2 To 5
      Brr(i, j) = Z(Brr(1, j) & Brr(i, 1))
   Next
Next
'↑設順迴圈將Z字典中的item值吐出來給陣列
Range([P2], [L65536].End(3)) = Brr
'↑令Brr陣列值寫入儲存格中
Set Z = Nothing: Erase Brr
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)