vba 去除數組重復數據

Dim intArr()

Dim strL As string

 

Dim BB As new Collection

for i = LBound(varFileList) To UBound(varFileList)

　　strTemp1 = varFileList(i)

　　strL = Mid(strTemp1, 1, inStr(strTemp1, "-")-1)

　　nL = Cint(strL)

　　BB.Add varFileList(i), Str(varFileList(i))

　　Next i

 

Redim Preserve intArr(BB.count)

　　FOr i = 1 To BB.Count

　　　　intArr(i) = BB(i)

　　　　MsgBox intArr(i)

　　Next