帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-5-11 17:34 | 只看該作者

[發問] 陣列移重複值CreateObject("Scripting.Dictionary")

參考了下面這篇進行陣列重複值的移除
http://forum.twbts.com/thread-12757-1-1.html

上方範例的陣列如下

AR = Array("XX", "aa", "ab", "ab", "ab", "XX", "ab")

複製代碼

但是我改成我所要的變數方式

AR = Array(Worksheets(1).Range("S" & i) , Worksheets(1).Range("Z" & i) , Worksheets(1).Range("AG" & i) , Worksheets(1).Range("AN" & i))

複製代碼

但是印出來的結果沒有辦法將重複值移除

不清楚問題點為何

還請各位指教

謝謝 !

樓主熱帖

用功到世界末日那一天～～～

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2016-5-11 22:53 | 只看該作者

本帖最後由 luhpro 於 2016-5-11 23:02 編輯

參考了下面這篇進行陣列重複值的移除
上方範例的陣列如下但是我改成我所要的變數方式但是印出來的結果 ...
li_hsien 發表於 2016-5-11 17:34

1. AR = Array(Worksheets(1).Range("S" & i) , Worksheets(1).Range("Z" & i) , Worksheets(1).Range("AG" & i) , Worksheets(1).Range("AN" & i)) 可以改成 :

With Worksheets(1)
AR = Array(.Range("S" & i) , .Range("Z" & i) , .Range("AG" & i) , .Range("AN" & i))
End With

2. 依你的程式內容來猜測,

應該是你的陣列在每個迴圈中都有被 Array 指令重置(清除), 所以產生不了你想要濾除重複資料的效果.(陣列內元素極大的少於實際情形)

另, 當陣列個數不確定時,

建議改用 Redim 與直接賦值方式產生陣列,

Array 只能建立固定個數且內容皆已條列在該行程式右方的陣列.

基於上述修改後的程式如下: