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

[發問] 多維矩陣疑惑

stephen

小學生 Rank: 1

帖子: 7
主題: 3
精華: 0
積分: 19
點名: 0
作業系統: WINXP
軟體版本: 2002 SP3
閱讀權限: 10
性別: 男
來自: TAIWAN
註冊時間: 2010-5-4
最後登錄: 2019-12-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-24 12:14 | 只看該作者

[發問] 多維矩陣疑惑

Hi 大大,

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

謝謝~

多維矩陣.zip (7.76 KB)

樓主熱帖

請多指教

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 36
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-11

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2014-5-26 15:54 | 只看該作者

回復 1# stephen

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
r = 2
Do Until Cells(r, 2) = ""
ar = IIf(InStr(Cells(r, 3), "arr"), Cells(r, 3), ar)
k = Val(Replace(ar, "arr ", ""))
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))
r = r + 1
Loop
[H:L].Clear
[H1] = "期望結果"
s = 1
For i = 1 To d.Count
d(i).Copy [H1].Offset(s)
[H1].Offset(s).Resize(d(i).Rows.Count, 3).Sort key1:=[H1].Offset(s, 1), key2:=[H1].Offset(s), Header:=xlYes
s = s + d(i).Rows.Count
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

stephen

小學生 Rank: 1

帖子: 7
主題: 3
精華: 0
積分: 19
點名: 0
作業系統: WINXP
軟體版本: 2002 SP3
閱讀權限: 10
性別: 男
來自: TAIWAN
註冊時間: 2010-5-4
最後登錄: 2019-12-5

3^#

發表於 2014-5-26 19:03 | 只看該作者

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

請多指教

TOP

靜思自在 : 人生沒有所有權，只有生命的使用權。

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