[發問] 請教vba這段程式的意思

Dear Sirs

想請教各位，我之前在知乎看到vba撰寫function
結果如下

https://zhuanlan.zhihu.com/p/41740899

它的程式如下，順便將我的解讀撰寫如下

Function 提取重覆(rg1 As Range, rg2 As Range)
Dim arr1, arr2
arr1 = Split(rg1, ",")  '將長串數據1，按逗號拆分成一組數據
arr2 = Split(rg2, ",")  '將長串數據2，按逗號拆分成一組數據
a = ""
For h = 0 To UBound(arr1)          '逐個比對兩組數字
For i = 0 To UBound(arr2)
If arr1(h) = arr2(i) Then a = a & arr2(i) & ","  '將兩組數據相同的部分留下，以","分隔相同數據，組成一連串字串
End If
Next
Next

Dim arr, d As Object '剔除结果中的重覆值
Set d = CreateObject("scripting.dictionary") '將d設為一個字典
arr = Split(Mid(a, 1, Len(a) - 1), ",")  '將長串數據a，按逗號拆分成一組數據，順便將a字串最後一個逗號消除。

For i = 0 To UBound(arr)
d(arr(i)) = "" '不知道為什麼要將d(arr(i))設為空白
Next i
提取重复 = Join(d.keys, ",") '為什麼會用d.keys，看不懂
End Function

再麻煩各位大德，想不通，也查不太到資料，謝謝您。

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2018-8-23 09:17 | 只看該作者

回復 1# alsr
VBA 的說明

Dictionary 物件
物件，用於儲存資料關鍵字和項目對。
請注意
Dictionary 物件與 PERL 相關陣列全等。可以是任何型式的資料的項目被儲存在陣列中。每個項目都與一個唯一的關鍵字相關。該關鍵字用來取出單個項目，通常是整數或字串，可以是除陣列外的任何型態。

Split 函數
傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。

Option Explicit

Sub Ex()

Dim D As Object, KEY As Variant

Set D = CreateObject("SCRIPTING.DICTIONARY")  '字典物件

D("ABC") = "ISABC" 'ABC 是字典物件的KEY (關鍵字) 'ISABC 是字典物件的ITEM

D("BCD") = ""

[a1] = "Excel_VBA"

Set D("CDE") = [a1]

MsgBox Join(D.KEYS, ",")

MsgBox Join(D.ITEMS, ",")

For Each KEY In D.KEYS

      Debug.Print KEY

Next

For Each KEY In D.ITEMS

      Debug.Print KEY

Next

End Sub
複製代碼