返回列表 上一主題 發帖

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

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2025-6-21 
1# 跳轉到 »
發表於 2020-9-14 21:08 | 顯示全部帖子
本帖最後由 軒云熊 於 2020-9-14 21:12 編輯

回復 1# zheng211016
剛好可以練習一下 不過不知 該如何在字典用串聯方式或是陣列裡橫向排序...
  1. Public Sub 查詢不重複並橫向排序練習()
  2. If [F1] <> "" Then [F1].CurrentRegion.Clear
  3. Arr = [A1].CurrentRegion
  4. Set xD = CreateObject("Scripting.Dictionary")
  5. For I = 1 To UBound(Arr, 1)
  6.     For j = 1 To UBound(Arr, 2)
  7.         xD(Arr(I, j)) = Arr(I, j)
  8.     Next j
  9. Next I
  10. [F1].Resize(1, xD.Count) = xD.Keys
  11. [F1].CurrentRegion.Sort [F1].CurrentRegion, Orientation:=xlLeftToRight
  12. End Sub
複製代碼

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2025-6-21 
2#
發表於 2020-9-15 17:26 | 顯示全部帖子
回復 3# zheng211016

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

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

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

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題