　暱稱: zheng逸

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-9-14 00:44 | 只看該作者

[發問] 如何在陣列裡篩選出不重複的值?

想請教
如何將A1到D5不重複的值
依序顯現在G1往右的儲存格?

如圖示

樓主熱帖

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

2^#

發表於 2020-9-14 21:08 | 只看該作者

本帖最後由軒云熊於 2020-9-14 21:12 編輯

回復 1# zheng211016
剛好可以練習一下不過不知該如何在字典用串聯方式或是陣列裡橫向排序...

Public Sub 查詢不重複並橫向排序練習()
If [F1] <> "" Then [F1].CurrentRegion.Clear
Arr = [A1].CurrentRegion
Set xD = CreateObject("Scripting.Dictionary")
For I = 1 To UBound(Arr, 1)
For j = 1 To UBound(Arr, 2)
xD(Arr(I, j)) = Arr(I, j)
Next j
Next I
[F1].Resize(1, xD.Count) = xD.Keys
[F1].CurrentRegion.Sort [F1].CurrentRegion, Orientation:=xlLeftToRight
End Sub

複製代碼

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

3^#

發表於 2020-9-14 22:34 | 只看該作者

本帖最後由 zheng211016 於 2020-9-14 22:40 編輯

回復 2# 軒云熊

實測沒問題非常感謝
但想請問是如何讓他篩選的?
難道是
xD.Count
xD.Keys
能讓他自動選出不重複的值?

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

4^#

發表於 2020-9-15 12:18 | 只看該作者

回復 1# zheng211016

試試看
字典(Dictionary)的exists判斷是否為重複,如果字典內找不到才放入,字典內已有的值不放入
Sub Ex()
Dim d As Object
Dim a As Object
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range("a1").CurrentRegion
If Not d.exists(a.Value) Then d.Add a.Value, ""
Next
[g1].Resize(, d.Count) = d.keys
Range([g1], Cells(1, [g1].End(2).Column)).Sort Range("g1"), 1, Orientation:=xlSortRows
Set d = Nothing
End Sub

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-25

熱烈參與勳章

5^#

發表於 2020-9-15 14:03 | 只看該作者

E2:E10 {=IFERROR(SMALL(IF(COUNTIF(F$1:F1,A$1:D$5)=0,A$1:D$5),1),"")

G2:G10 {=IFERROR(INDIRECT(TEXT(SMALL(IF(COUNTIF(G$1:G1,A$1:D$5)=0,ROW($1:$5)/1%+{1,2,3,4}),1),"!R0C00"),),"")

H2"H10 {=IFERROR(INDIRECT(TEXT(RIGHT(SMALL(IF(COUNTIF(H$1:H1,A$1:D$5)=0,ROW($1:$5)/1%+{1,2,3,4}*10001),1),4),"!R0C00"),),"")

7366.png (6.48 KB)

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

6^#

發表於 2020-9-15 17:26 | 只看該作者

回復 3# zheng211016

我也是新手最近才開始學習字典運用還在學習階段
有空你也可以研究看看

准提部林大大說過的
dic--keys, items
keys--只會留獨一無二的"索引值", 所以不會重覆
items--可以容納任何型態內容, 變化較多, 但可從簡單的著手

其實很好理解, 多幾次練習即可,
單欄資料:
1) 取得a欄內容的唯一值
2) 計算a欄各唯一值的出現次數
兩欄資料:
1) 計算a欄各唯一值在b欄的合計數
2) 計算a欄各唯一值,且b欄符合某一條件的次數

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

7^#

發表於 2020-9-19 00:54 | 只看該作者

回復 4# jcchiang
回復 5# hcm19522
回復 6# 軒云熊

謝謝三位大大的指教小弟受益良多!!!

TOP