標題: [發問] 請教先進如何使用VB將箱號加總 [打印本頁]

---

作者: spensers    時間: 2014-2-25 16:27     標題: 請教先進如何使用VB將箱號加總

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

---

作者: GBKEE    時間: 2014-2-25 16:37

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

---

作者: Andy2483    時間: 2023-4-18 16:24

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

資料表:
[attach]36178[/attach]

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

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

---

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