[發問] 請教先進如何使用VB將箱號加總

spensers

請教先進如何使用VB將箱號加總，求解，謝謝

GBKEE

回復 1# spensers
Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件

Andy2483

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

資料表:

下載 (43.83 KB)

2023-4-18 16:22

執行結果:

下載 (49.23 KB)

2023-4-18 16:22

Option Explicit
Sub TEST()
Dim Brr, Y, i&, xR As Range
Set Y = CreateObject("Scripting.Dictionary")
Set xR = Range([C1], Cells(Rows.Count, "A").End(xlUp)): Brr = xR
For i = 2 To UBound(Brr): Y(Brr(i, 1)) = "": Next
MsgBox "共有 " & Y.Count & " 個箱號"
Set Y = Nothing: Set xR = Nothing: Erase Brr
End Sub