標題: [發問] 多維矩陣疑惑 [打印本頁]

---

作者: stephen    時間: 2014-5-24 12:14     標題: 多維矩陣疑惑

Hi 大大,

附件這個檔案,我用迴圈去做一直得不到有效解決的方式.
可能因為一直找不到運作邏輯,也許只能用矩陣的方式解決
懇請各位大大指導一二.
[attach]18355[/attach]
謝謝~

---

作者: Hsieh    時間: 2014-5-26 15:54

回復 1# stephen

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. r = 2
   
4. Do Until Cells(r, 2) = ""
   
5. ar = IIf(InStr(Cells(r, 3), "arr"), Cells(r, 3), ar)
   
6. k = Val(Replace(ar, "arr ", ""))
   
7. If IsEmpty(d(k)) Then Set d(k) = Cells(r, 1).Resize(, 5) Else Set d(k) = Union(d(k), Cells(r, 1).Resize(, 5))
   
8. r = r + 1
   
9. Loop
   
10. [H:L].Clear
    
11. [H1] = "期望結果"
    
12. s = 1
    
13. For i = 1 To d.Count
    
14.    d(i).Copy [H1].Offset(s)
    
15.    [H1].Offset(s).Resize(d(i).Rows.Count, 3).Sort key1:=[H1].Offset(s, 1), key2:=[H1].Offset(s), Header:=xlYes
    
16.    s = s + d(i).Rows.Count
    
17. Next
    
18. End Sub

複製代碼

---

作者: stephen    時間: 2014-5-26 19:03

查閱了一下excel說明,使用 Union 方法將多個範圍合併成單一 Range 物件。
......只能說,版主您好強~
謝謝~受教了!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)