EXCEL VBA 程式的问题

jerryapo
個人積分：946分
文章編號：86904636

946分

樓主

2023-02-20 10:17

请问 If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("Scripting.dictionary") 这一段是什么意思？？
是d.(arr(i, 1)) 不存在时，把 d(arr(i, 1))设定成d(arr(i, 1)) = CreateObject("Scripting.dictionary") 的意思吗？？
有懂Objective dictionary的大大能解释一下吗？？excel VBA的小白，请多见谅！！！

Sub test()
Dim arr, i&, d As Object, key, x, temp&, str$, res, m&
Set d = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion 'CurrentRegion是arr = Range("A1:C3320")

For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("Scripting.dictionary")
If arr(i, 3) <> "" Then d(arr(i, 1))(arr(i, 3)) = d(arr(i, 1))(arr(i, 3)) + 1
Next

2023-02-20 10:17 發佈

文章關鍵字 Excel VBA 程式問題

qekqo

qekqo
個人積分：21分
文章編號：86910098

21分

2樓

2023-02-20 23:55

Set d = CreateObject("Scripting.dictionary") ==> 將 d 設為一個「字典物件」

Set d(arr(i, 1)) = CreateObject("Scripting.dictionary") ===> 這個比較複雜，我也沒用過，但蠻好查的，您可以參考下面網址：
https://blog.csdn.net/ielqve/article/details/128061597

字典物件在VBA裡面算是超好用的東西，用來作資料比對非常方便及快速，建議您可以好好了解一下。