麻辣家族討論版版 » Excelㄧ般區 » 利用字典去除重複內容

返回列表下一主題上一主題發帖

[原創] 利用字典去除重複內容

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-4-11 18:50 | 只看該作者

[原創] 利用字典去除重複內容

=IFERROR(UNIQUE($C$1:$C$10,ROW(A1)),"")

code of UNIQUE function

Function UNIQUE(source As Range, num As Integer)
Dim newArray, myArray As Variant
rows_num = source.Rows.Count
myArray = Range(source.Address).Value
Set Dic = CreateObject("scripting.dictionary")
For i = 1 To rows_num
Dic((myArray(i, 1))) = ""
Next
arr = Dic.Keys
UNIQUE = arr(num - 1)
End Function

複製代碼

樓主熱帖

收藏

ss

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

2^#

發表於 2013-4-11 22:16 | 只看該作者

修改Code 可以略過空白

Function UNIQUE(source As Range, num As Integer)
Dim newArray, myArray As Variant
rows_num = source.Rows.Count
myArray = Range(source.Address).Value
Set Dic = CreateObject("scripting.dictionary")
For i = 1 To rows_num
Dic(CStr(myArray(i, 1))) = ""
Next
arr = Dic.Keys
UNIQUE = arr(num - 1)
End Function

複製代碼

ss

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

3^#

發表於 2013-4-11 22:39 | 只看該作者

回復 2# sunnyso
更新Code 略過空白

Function UNIQUEp(source As Range, num As Integer)
Dim newArray, myArray As Variant
rows_num = source.Rows.Count
'myArray = Range(Cells(source.Row, source.Column), Cells(source.Row + rows_num - 1, source.Column)).Value
myArray = Range(source.Address).Value
Set Dic = CreateObject("scripting.dictionary")
For i = 1 To rows_num
If myArray(i, 1) <> "" Then
Dic((myArray(i, 1))) = ""
End If
Next
arr = Dic.Keys
UNIQUEp = arr(num - 1)
End Function

複製代碼

ss

靜思自在 : 口說好話、心想好意、身行好事。

返回列表下一主題上一主題