求多欄作業員每日產出數量

074063

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

下載 (94 KB)

2017-12-1 21:53

求每日各作業員產出數量.rar (7.53 KB)

下載次數: 14

2017-12-1 21:54

joblyc017

回復 1# 074063

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

下載 (125.48 KB)

2017-12-2 10:36

hcm19522

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

Andy2483

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

執行前:

下載 (131.1 KB)

2023-6-8 15:08

執行結果:

下載 (134.33 KB)

2023-6-8 15:08

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