返回列表 上一主題 發帖

快速比對矩陣內的資料大小!!

yenwang

帖子
57 
主題
36 
精華
0 
積分
94 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
註冊時間
2014-9-10 
最後登錄
2024-8-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-10-16 23:41 | 只看該作者

快速比對矩陣內的資料大小!!

想請問大家
假如有個動態矩陣，內部資料譬如
A, 1
B, 6
A, 100
C, 90
B, 99
D, 1
A, 50
......
不知道要做，才能讓VBA快速取得個別項目的最大值對應!
(100是A的最大值, 99是B的最大值)
想請問大家有沒有什麼絕招
thank you!
收藏 分享

hcm19522

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

熱烈參與勳章
4#
發表於 2015-10-17 11:54 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/350193923

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
3#
發表於 2015-10-17 10:57 | 只看該作者
Sub AR1017()
Dim Arr, xD, j&, T, V
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([A1], [B65536].End(xlUp))
For j = 1 To UBound(Arr)
　　T = Arr(j, 1):　V = Arr(j, 2)
　　If xD(T) = "" Then xD(T) = V
　　If V > xD(T) Then xD(T) = V
Next j
[E1:F1].Resize(xD.Count) = Application.Transpose(Array(xD.keys, xD.items))
End Sub

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
2#
發表於 2015-10-17 06:58 | 只看該作者
回復 1# yenwang
如果只要找其中一個最大值，一個迴圈加比大小就可以了
參考看看!
  1. Sub 陣列抓最大值()
  2. Dim Arr, ViewMax
  3. Arr = Range("a1:b7")  '引入你的陣列
  4. With CreateObject("Scripting.Dictionary")
  5.     For i = 1 To UBound(Arr)
  6.         If .Exists(Arr(i, 1)) Then
  7.             If .Item(Arr(i, 1)) < Arr(i, 2) Then .Item(Arr(i, 1)) = Arr(i, 2)
  8.         Else
  9.            .Add Arr(i, 1), Arr(i, 2)
  10.         End If
  11.     Next i
  12.     For Each ViewMax In .Keys
  13.         Debug.Print ViewMax, .Item(ViewMax)
  14.     Next
  15. End With
  16. End Sub
複製代碼

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題